自定义轴标签

Question

我有一个简单的geom_point图，其中x变量是序数，取5个值（编码为1：5）。

在图中，我想用5个相应的文本标签替换它。有没有可能在ggplot中做到这一点？

Answer 1

你应该能够scale_x_discrete做到这一点。

library(ggplot2) 
df <- data.frame(x = 1:5, y = sample(1:10, 5, TRUE)) 

qplot(factor(x),y, data = df) + 
scale_x_discrete(breaks = 1:5, labels=c("foo","bar","baz","phi","fum")) + 
xlab(NULL) 

Answer 2

这里是一个重复的例子，我觉得你的封装Q（？）：

require(ggplot2) 
dat <- data.frame(X = sample(1:5, 100, replace = TRUE), 
        Y = rnorm(100)) 

它不是立即清楚你有什么样的数据，但如果你的意思是这样：

(p1 <- ggplot(dat, aes(x = X, y = Y)) + geom_point()) 

那么我想你想有一个带状图，它可以在ggplot通过因子来实现

dat2 <- within(dat, X <- factor(X, labels = letters[1:5])) 
(p2 <- ggplot(dat2, aes(x = X, y = Y)) + geom_point()) 

如果这是不是你的意思，你可以编辑你的Q来提供一个例子吗？

Answer 3

scale_x_discrete应该这样做：

x <- sample(1:5, 20, T) 
y <- rnorm(20) + x 

df <- data.frame(x = ordered(x), y = y) 

ggplot(df,aes(x,y)) + geom_point() + 
    scale_x_discrete(breaks = 1:5, labels = letters[1:5])