我试图使用x在x轴上绘制月份ggplot2,但月份名称会自动显示为带小数的数字.我怎么能强制脚本绘制数字的月份名称?我用过这段代码:
ggplot(df3, aes(x = month, y = PM)) +
geom_line(aes(col = factor(travel))) +
xlab("Month") +
ylab(expression(paste("PM(",mu,"g/", m^3,")", sep="")))
Run Code Online (Sandbox Code Playgroud)
数据如下:
df3 <- structure(list(month = c(9, 10, 9, 10, 1, 2, 3, 4, 5, 9, 10,
1, 2, 3, 4, 5, 9, 10, 11, 12, 1, 2, 3, 4, 5, 11),
travel = c("Diesel bus",
"Diesel bus", "Diesel bus", "Diesel bus", "Diesel bus", "Diesel car",
"Diesel car", "Diesel car", "Diesel car", "Diesel car", "Bicycle",
"Bicycle", "Bicycle", "Bicycle", "Bicycle", "Gasoline car", …Run Code Online (Sandbox Code Playgroud) 我想为变量pm10创建滞后变量并使用以下代码.但是,我无法得到我想要的东西.我怎么能创建pm10的滞后?
df2$l1pm10 <- lag(df2$pm10, -1, na.pad = TRUE)
df2$l1pm102 <- lag(df2$pm10, 1)
dput(df2)
structure(list(var1 = 1:10, pm10 = c(26.956073733, NA, 32.838694951,
39.9560737332, NA, 40.9560737332, 33.956073733, 28.956073733,
32.348770798, NA), l1pm10 = structure(c(26.956073733, NA, 32.838694951,
39.9560737332, NA, 40.9560737332, 33.956073733, 28.956073733,
32.348770798, NA), .Tsp = c(2, 11, 1))), .Names = c("var1", "pm10",
"l1pm10"), row.names = c("1", "2", "3", "4", "5", "6", "7", "8",
"9", "10"), class = "data.frame")
Run Code Online (Sandbox Code Playgroud)