R中的轴功能未提供所需的结果

Question

问题-我试图绘制图形，但希望更改x轴和y轴的值。在stackoverflow的帮助下，我了解了如何使用axis（）自定义值，但无法获得所需的输出。每当我运行以下代码时，x轴上只会显示一个标签。在此，x包含一些数字。这是屏幕截图

重试-我试图在axis函数的label字段中提供字符矢量，我试图将Months更改为数据框，但似乎无济于事。

目标-在x轴上显示一年中的所有月份及其相应数据（假设向量x的第一个元素属于一年中的第一个月，依此类推）

data <- data.frame( x= c(0,42,100,560,800, 900, 1000, 1200, 4800,5000, 5600, 6700, 8000, 12000) , 10, replace= TRUE)

plot(x, xaxt="n", type = "l")
xtick <- seq(1,12, by = 1)
Months <- c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov","Dec")
axis(side=1, at=xtick, labels = Months)

如果有人可以帮助我并指导我哪里出了问题，那太好了

Answer 1

这样的事情怎么样？

data <- data.frame( x= c(0,42,100,560,800, 900, 1000, 1200, 4800,5000, 5600, 6700, 8000, 12000))

plot(y =data$x, x = 1:length(data$x), type = "l", xaxt = "n")

Months <- as.vector(c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov","Dec", "Jan", "Feb"))
axis(1, at=1:length(data$x), labels= Months)

答案可以在here

中找到