Closed. This question does not meet
Stack Overflow guidelines。它当前不接受答案。
想改善这个问题吗?更新问题,以便将其作为
on-topic用于堆栈溢出。
3年前关闭。
Improve this question
运行此功能后,
我有此错误:$<-.data.frame
(
*tmp*
,Energy,value = numeric(0))中的错误:
替换有0行,数据有2642
library(dplyr)
shower = read.csv2("Shower_data.csv")
survey = read.csv2("Survey.csv")
uniteData<- dplyr::inner_join(shower, survey, by=c("Hh_ID" = "Hh_ID"))
dataEng <- data.frame(uniteData$Hh_ID, uniteData$Volume, uniteData$Avgtemperature, uniteData$beobachten)
colnames(dataEng) <-c('ID','Volume', 'AvgTemperature', 'beobachten')
#data$Energy <- with(data, data$Volume*(data$AvgTemperature-12)/0.65*4.185/3600)
calculateEnergy <- function(temperature, volume){
energy = c(volume * (temperature-12)/0.65*4.185/3600)
return(energy)
}
oft <- dataEng %>% dplyr::filter(beobachten == "Oft")
eherOft <-dataEng %>% dplyr::filter(beobachten == "Eher oft")
selten <-dataEng %>% dplyr::filter(beobachten == "Selten")
eherSelten <-dataEng %>% dplyr::filter(beobachten == "Eher selten")
oft$Energy<- calculateEnergy(oft$Avgtemperature, oft$Volume)
$<-.data.frame
(
*tmp*
,Energy,value = numeric(0))中的错误:
替换有0行,数据有2642