R：使用 ggplot 更改辅助轴刻度标签的颜色

如何解决R：使用 ggplot 更改辅助轴刻度标签的颜色

我正在尝试生成与 ggplot 中的主刻度标签颜色不同的辅助轴刻度标签。

我有一个包含两组线和相应的不同 y 轴的图。如下面的最小示例所示，我成功地使每对线 + 轴标签共享了共同的颜色，以将它们与另一对区分开来。但是，我希望刻度标签也共享这些颜色。

直观的方法是使用 sec.axis 和 sec_axis，但它们似乎没有提供一种方法来区分辅助轴的刻度/标签的格式与主轴的刻度/标签的格式。

有没有人可以在不改变主轴颜色的情况下更改辅助轴刻度标签的颜色？

library(ggplot2)

# Example data
df <- data.frame(y1 = 1:10,y2 = 2:11,x = 101:110)

# Example plot
df %>% ggplot2::ggplot() +
  geom_line(
    mapping = aes(x = x,y = y1),color = "black") +
  geom_point(
    mapping = aes(x = x,color = "black") +
  geom_line(
    mapping = aes(x = x,y = y2),color = "red") +
  geom_point(
    mapping = aes(x = x,color = "red") +
  scale_y_continuous(
    "Primary",sec.axis = sec_axis(~ .,name = "Secondary")
  ) +
  theme_bw() +
  theme(
    axis.title.y = element_text(color = "black"),axis.title.y.right = element_text(color = "red")
)

解决方法

你的代码没问题，只需添加theme()：

axis.text.y.right = element_text(colour = "red")

像这样：

df %>% ggplot2::ggplot() +
  geom_line(
    mapping = aes(x = x,y = y1),color = "black") +
  geom_point(
    mapping = aes(x = x,color = "black") +
  geom_line(
    mapping = aes(x = x,y = y2),color = "red") +
  geom_point(
    mapping = aes(x = x,color = "red") +
  scale_y_continuous(
    "Primary",sec.axis = sec_axis(~ .,name = "Secondary")
  ) +
  theme_bw() +
  theme(
    axis.title.y = element_text(color = "black"),axis.title.y.right = element_text(color = "red"),axis.text.y.right = element_text(colour = "red")) #ADD THIS

祝你好运！