我想在 x 轴上用月份绘制这个数据框。
month value1 value2 value3 value4
1 Okt 19.5505 19.6145 19.5925 19.3710
2 Nov 21.8750 21.7815 21.7995 20.5445
3 Dez 25.4335 25.2230 25.2800 22.7500
t = read.csv("Mappe1.csv", header = TRUE, sep=";", dec = ".", fill = TRUE, comment.char = "")
t$m <- factor(t$m, levels = c("Okt", "Nov", "Dez"))
library(Hmisc)
xyplot(t$value1~t$m, type = "l", col = "red", ylab="values")
lines(t$value2~t$m, type = "l", col = "cyan")
lines(t$value3~t$m, type = "l", col = "purple")
lines(t$value4~t$m, type = "l", col = "black", lwd = 2)
legend("topleft", legend=c("value1", "value2", "value3", "value4"),
col=c("red", "cyan", "purple", "black"), lty=1:1, cex=0.8)
这个例子效果很好。但是当我以完全相同的方式尝试但使用不同的值时,只有 value1 是 plottet 并且我总是收到以下错误:
Error in plot.xy(xy.coords(x, y), type = type, ...) :
plot.new has not been called yet
Error in strwidth(legend, units = "user", cex = cex, font = text.font) :
plot.new has not been called yet
我已经应用了 plot.new() 和 dev.off()。但有时我仍然会收到这些错误,或者有时 R 没有显示错误但根本没有绘图。
这里可能有什么问题?
非常感谢您的帮助!