如何使用 R 中的 ggplot 更改散点图中刻度线的名称？

Question

在我的散点图中，我想在不更改数据框的情况下用相应的 CEFR 级别（A1.1 到 B2.2）替换刻度线的名称（1 到 8）。

1 = A1.1,
2 = A1.2,
3 = A2.1,
4 = A2.2,
5 = B1.1,
6 = B1.2,
7 = B2.1,
8 = B2.2

我的代码：

ggplot(data =  doppelratings1_mit_ID,
  aes(x = R1 , y = R2)) +
  geom_jitter(shape=1, width = 0.05, height = 0.15) + 
  geom_smooth() +
  xlab("Rater 1") +
  ylab("Rater 2") +
  ggtitle("Korrelation zwischen Rater 1 und 2", paste("n = 19 Texte ")) +
  theme_bw(12)+
  geom_abline(intercept = 0, slope = 1)

我试过了

CEFR <- c("A1.2", "A2.2", "B1.2")

然后

+ scale_x_discrete(labels= CEFR)

但后来刻度线消失了。

感谢您的帮助！

查看我的散点图：

Answer 1

将此添加到您的地块定义中：

tick_names <- c('A1.1', 'A1.2', ..., 'B2.2')

ggplot() + 
  ... +
scale_x_continuous(breaks = 1:8, labels = tick_names, limits = c(1, 8)) +
scale_y_continuous(breaks = 1:8, labels = tick_names, limits = c(1, 8))

Answer 2

我设法用以下代码显示了散点图：

tick_names <- c("A1.1", "A1.2", "A2.1", "A2.2", "B1.1", "B1.2", "B2.1", "B2.2")
tick_names_x <- c("A1.1", "A1.2", "A2.1", "A2.2", "B1.1", "B1.2", "B2.1")

ggplot(data =  doppelratings1_mit_ID,
aes(x = R1 , y = R2)) +
geom_jitter(shape=1, width = 0.05, height = 0.15) + 
geom_smooth() +
xlab("Rater 1") +
ylab("Rater 2") +
ggtitle("Korrelation zwischen Rater 1 und 2", paste("n = 19 Texte ")) +
theme_bw(12)+
geom_abline(intercept = 0, slope = 1) +
scale_y_discrete(breaks = 1:8, labels = tick_names, limits = c(1:8)) +
scale_x_discrete(breaks = 1:7, labels = tick_names_x, limits = c(1: 7))

感谢您的帮助！看图：correlation between two raters

如何使用 R 中的 ggplot 更改散点图中刻度线的名称？

How can I change the name of the tick marks in a scatterplot with ggplot in R?

r

scatter-plot

ggplot2

axis-labels