我正在尝试创建一个带有for循环的函数,该函数接受数据框中的列并根据列名创建不同的图形。我已经阅读了多个相关的SO问题,例如:
1:创建使用ggplot2的循环函数[2]:在ggplot中循环变量
但是到目前为止没有什么效果。
样本数据:
当我运行第一个函数时,我会得到以下错误信息:
。
philly_df_new <- structure(list(DATE = structure(c(14610, 14611, 14612, 14613,
14614, 14615, 14616, 14617, 14618, 14619, 14620, 14621, 14622,
14623, 14624, 14625, 14626, 14627, 14628, 14629), class = "Date"),
HOURLYDewPointTempC = c(0, -8.9, -15, -12.2, -11.7, -10.6,
-8.3, -4.4, -12.2, -17.2, -12.8, -6.1, -10.6, -7.8, -5.6,
-2.2, 0.6, 3.9, 0.6, -3.3), HOURLYSeaLevelPressure = c(30,
29.79, 29.78, 29.76, 29.81, 29.78, 29.89, 29.87, 29.98, 30.25,
30.27, 30.13, 30.22, 30.23, 30.21, 30.23, 30.14, 29.49, 29.95,
29.92), DAILYDeptFromNormalAverageTemp = c(-1.7, 2.4, -6.4,
-10.3, -6.2, -5.1, -1, -1, -5.9, -10.8, -11.8, -9.7, -3.7,
-1.7, -1.6, 4.4, 4.4, 6.4, 8.4, 4.3)), .Names = c("DATE",
"HOURLYDewPointTempC", "HOURLYSeaLevelPressure", "DAILYDeptFromNormalAverageTemp"
), row.names = c(NA, -20L), class = c("tbl_df", "tbl", "data.frame"
))
我尝试的不同代码:
Plot_Graph<-function(x,na.rm=T){
nm=names(x)
for (i in seq_along(nm)) {
print(ggplot(x,aes_string(x="DATE",y=i) +
geom_point()))
}
}
Plot_Graph(philly_df_new)
colNames <- names(philly_df_new)[2:4]
for(i in seq_along(colNames)){
plt <- ggplot(philly_df_new, aes_string(x="DATE", y = i)) +
geom_point(color="#B20000", size=3, alpha=0.5,na.rm = T)
print(plt)
}
当我运行第一个函数时,我会得到以下错误信息:
Error: Mapping should be created with
aes()or
aes_()。当我运行第二个函数时,我会得到一张相同的图表,重复出现并带有一条水平线。我尝试了更多的方法,但为了简化,我只展示这两种方法。我想要创建每列的时间序列图,就像这样:![enter image description here](https://istack.dev59.com/ijkm4.webp)
Plot_Graph
函数内,你的括号放错位置了。应该是print(ggplot(x,aes_string(x="DATE",y=i))+geom_point())
。 - MrFlick