我试图使用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)