创建自定义轴时出现绘图错误

letao 发表于 Dev

乐涛

我在R的基本绘图系统中创建自定义轴时遇到问题，我有以下数据框，我想针对该数据框绘制趋势以显示每年的变化：

year  <- c(2000, 2002, 2005, 2009)
values  <- c(7332967, 5332780, 5135760, 3464206) 
x  <- data.frame(year, values)

##     year values
## 1    2000    733296
## 2    2002    533278
## 3    2005    513576
## 4    2009    346420

我的第一次尝试是：

plot(x$year, x$value,
     xlab = "Year",
     ylab = "Value",
     type = "b")

但是，这为我在数据框中具有的四个值提供了偏斜的x和y轴。我希望x轴仅包含“年份”列下的四个值，而y轴仅包含“值”列下的四个值。

为此，我尝试创建自定义的x和y轴，但是导致错误：

plot(x$year, x$value,
     type = "b",
     xaxt = "n",
     yaxt = "n",
     xlab = "Year",
     ylab = "Values",
     axis(1, at = 1:nrow(x), labels = x$year),
     axis(2, at = 1:nrow(x), labels = x$value))

"Error in plot.window(...) : invalid 'xlim' value"

和：

plot(x$year, x$value,
     type = "b",
     xaxt = "n",
     yaxt = "n",
     xlab = "Year",
     ylab = "Values",
     axis(1, at = 1:nrow(x), labels = x$year),
     axis(2, at = 1:nrow(x), labels = x$value),
     xlim = c(min(data_plot$year), max(data_plot$year)),
     ylim = c(min(data_plot$Emissions), max(data_plot$Emissions)))

"Error in strsplit(log, NULL) : non-character argument"

我对R很陌生，并尝试在各种站点上寻找解决方案，但是似乎没有什么可以解决问题的，因此提供的任何帮助将不胜感激。

鲍姆斯

axis是一个单独的函数，而不是的参数plot，因此请尝试以下操作：

# First make some extra space on the left for the long numeric axis labels
par(mar=c(5, 6, 1, 1))
# Now plot the points, but suppress the axes
plot(x$year, x$values, xaxt='n', yaxt='n', xlab='Year', ylab='', type='b')
# Add the axes
axis(1, at=x$year, labels=x$year, cex.axis=0.8)
axis(2, at=x$values, labels=x$values, las=1, cex.axis=0.8)
# Add the y label a bit further away from the axis
title(ylab='Value', line=4)

在此处输入图片说明