在图中添加文本在r中不起作用

Question

我有一个简单的数据集： 11个观察，1个变量。

我想绘制它们添加我自己的轴名称，但是当我想改变它们的位置时，R会将它们绘制在完全相同的位置。

这是我的剧本：

plot(data[,5], xlab = "", xaxt='n')
axis(1, at = 1:11, labels = F)
text(1:11, par("usr")[3] - 0.1, srt = 90, adj = 1, labels = names, xpd = TRUE)

我正在将-0.1更改为任意数字，但R会将标签放在完全相同的位置。我试过像"a"这样的短名称，但结果是一样的。

提前致谢

我的数据：

10308.9
10201.6
12685.3
3957.93
7677.1
9671.7
11849.4
10755.7
11283.4
11583.8
12066.9

names <- rep("name",11)

Answer 1

我的ggplot解决方案：

# creating the sample dataframe
data <- read.table(text="10308.9
10201.6
12685.3
3957.93
7677.1
9671.7
11849.4
10755.7
11283.4
11583.8
12066.9", header=FALSE)

# adding a names column
data$names <- as.factor(paste0("name",sprintf("%02.0f", seq(1,11,1))))

#creating the plot
require(ggplot2)
ggplot(data, aes(x=names, y=V1)) + 
  geom_bar(fill = "white", color = "black")

给出：

如果要更改条形的顺序，可以使用transform：

进行更改

# transforming the data (I placed "name04" as the first one)
data2 <- transform(data,
                   newnames=factor(names,
                                   levels=c("name04","name01","name02","name03","name04","name05","name06","name07","name08","name09","name10","name11"),
                                   ordered =TRUE))

#creating the plot
ggplot(data2, aes(x=newnames, y=V1)) + 
  geom_bar(stat="identity", fill="white", color="black")

给出：