Доброго времени суток. Учу python ну и собственно хочу перевести код с R и очень интересует следующий вопрос: Как удобнее всего было бы реализовать сравнение данных из таблицы excel с критериями, которые вводятся в скрипте, как это сделано в скрипте R?
a <- as.numeric(readline(prompt="Введите количество рабочих на вашем предприятии: 1, если меньше 8,5 тыс.чел, 2 в противном случае: "))
b<-as.numeric(readline(prompt="Введите тип вашей индустрии: 2, если высокодоходная, 1 в противном случае: "))
c<-as.numeric(readline(prompt="Введите производительность труда вашего предприятия в тыс. руб./чел: "))
d<-as.numeric(readline(prompt="Введите рентабельность компании в %: "))
e<-as.numeric(readline(prompt="Введите темп роста компании в %: "))
tryCatch(
{ localenv <- environment()
asde<-work_file[as.numeric(work_file$WORKER)==a & as.numeric(work_file$OTRASL)==b & (work_file$PROISVOD>c-500 & work_file$PROISVOD<c+500) & (work_file$RENTAB>d/100-0.2 & work_file$RENTAB<d/100+0.2) & (work_file$TEMP>e/100-0.3 & work_file$TEMP<e/100+0.3),]
xyz <- asde[,c("КОМП", "REAL")]
saq<-ggplot(xyz, aes(x = factor(xyz[,1]), y = xyz[,2], fill=xyz[,1]),environment = localenv) +
geom_bar(stat = "identity") + xlab("Название компаний") +
ylab("Объем реализации в млн. рублей")+ ggtitle("Данные по схожим компаниям") + theme(text = element_text(size=12,face="bold"),
axis.text.x = element_text(size=14,face="bold"),
axis.text.y = element_text(size=14,face="bold")) +
scale_y_continuous(limit = c(0, max(xyz[,2])+7000), breaks = seq(0, max(xyz[,2]), by = 10000)) +
geom_text(aes(label = xyz[,2]), size = 5,face="bold",vjust=0)
return(list(saq,asde))
},
error=function(cond) {
print(paste("Компаний с похожими данными не выявлено. Проверьте правильность ввода данных или воспользуйтесь опцией прогнозирования"))
},
warning=function(cond) {
print(paste("Компаний с похожими данными не выявлено. Проверьте правильность ввода данных или воспользуйтесь опцией прогнозирования"))
})
}