如何逆转GGPLOT中的X轴断裂？

发布于 2025-02-11 04:55:46 字数 1851 浏览 3 评论 0原文

我正在尝试制作一个图，其中X轴上的大值实际上很小，反之亦然。由于GGPLOT如何读取数据，因此它会自动订购数据，以使X轴订购最小至最大的数据，我正在尝试弄清楚如何扭转这一点。

我最终通过使用rev（）逆转了数据的实际顺序，但这不会改变x轴中的断裂。

例如：

library(tidyverse)

# Making fake data
Freq <- rep(c(1, 2, 3, 5, 10, 15, 20), 10)
SD <- c(rep(1, 7), rep(2, 7), rep(3, 7), rep(4, 7), rep(5, 7), rep(6, 7), rep(7, 7), rep(8, 7), rep(9, 7), rep(10, 7))
Intro_0 <- sample(80:120,135,TRUE)
Intro_0 <- c(seq(80, 74, -1), seq(78, 72, -1), seq(76, 70, -1), seq(74, 68, -1), seq(72, 66, -1), seq(70, 64, -1), seq(68, 62, -1), seq(66, 60, -1), seq(64, 58, -1), seq(62, 56, -1))
test2 <- data.frame(cbind(Freq, SD, Intro_0))

# Plotting
# Here's where I reverse the order of the data: "rev(Freq)"
ggplot(test2, aes(rev(Freq), SD, z = Intro_0)) +
  geom_contour_filled(bins = 9)+
  scale_fill_brewer(palette = "BuPu")+
  labs(x="Frequency", 
       y="Magnitude",
       title="Test Plot")+
  # Here's where I *think* the issue is...
  scale_x_continuous(breaks = c(1, 2, 3, 5, 10, 15, 20), # I've tried rev() here
                     labels = c("Freq = 1/20", " ", " ", " ", " ", " ", "Freq = 1/1"))+
  # Aesthetic to clear up panel; can ignore
  theme_bw()+
  theme(panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank(), axis.line = element_line(colour = "white"))+
  theme(axis.text.x = element_text(angle = 45, hjust=1), plot.caption.position = "plot", plot.caption = element_text(hjust = 0))+
  labs(fill="Legend")

如果您运行上面的行，您会发现Rev（freq）将数据重新定位，但是x中的断裂 - 轴仍然没有正确订购（前三个刻度更近，表明“ 1、2、3，...，20”（尽管断路标签是我想要的）。我尝试过反转中断参数和其他一些明显的修复程序，但没有

任何想法。

原文

I'm trying to make a plot wherein large values on the x-axis are actually small, and vice versa. Because of how ggplot reads the data, it's automatically ordering the data such that the x-axis is ordered smallest to largest, and I'm trying to figure out how to reverse that.

I ended up reversing the actual order of the data by using rev(), but that won't change where the breaks in the x-axis are.

For example:

library(tidyverse)

# Making fake data
Freq <- rep(c(1, 2, 3, 5, 10, 15, 20), 10)
SD <- c(rep(1, 7), rep(2, 7), rep(3, 7), rep(4, 7), rep(5, 7), rep(6, 7), rep(7, 7), rep(8, 7), rep(9, 7), rep(10, 7))
Intro_0 <- sample(80:120,135,TRUE)
Intro_0 <- c(seq(80, 74, -1), seq(78, 72, -1), seq(76, 70, -1), seq(74, 68, -1), seq(72, 66, -1), seq(70, 64, -1), seq(68, 62, -1), seq(66, 60, -1), seq(64, 58, -1), seq(62, 56, -1))
test2 <- data.frame(cbind(Freq, SD, Intro_0))

# Plotting
# Here's where I reverse the order of the data: "rev(Freq)"
ggplot(test2, aes(rev(Freq), SD, z = Intro_0)) +
  geom_contour_filled(bins = 9)+
  scale_fill_brewer(palette = "BuPu")+
  labs(x="Frequency", 
       y="Magnitude",
       title="Test Plot")+
  # Here's where I *think* the issue is...
  scale_x_continuous(breaks = c(1, 2, 3, 5, 10, 15, 20), # I've tried rev() here
                     labels = c("Freq = 1/20", " ", " ", " ", " ", " ", "Freq = 1/1"))+
  # Aesthetic to clear up panel; can ignore
  theme_bw()+
  theme(panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank(), axis.line = element_line(colour = "white"))+
  theme(axis.text.x = element_text(angle = 45, hjust=1), plot.caption.position = "plot", plot.caption = element_text(hjust = 0))+
  labs(fill="Legend")

If you run the lines above, you'll find that the rev(Freq) reorders the data how I want it, but that the breaks in the x-axis still aren't ordered properly (the first three ticks are closer together, indicating the "1, 2, 3, ... , 20" (though the break labels are as I want them). I've tried reversing the breaks argument and a few other obvious fixes, but nothing's worked.

Any ideas?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

吖咩 2025-02-18 04:55:46

这正是scale_x_reverse是：

ggplot(test2, aes(Freq, SD, z = Intro_0)) +
  geom_contour_filled(bins = 9)+
  scale_fill_brewer(palette = "BuPu")+
  labs(x = "Frequency", y = "Magnitude", title = "Test Plot", fill = "Legend") +
  scale_x_reverse(breaks = c(1, 2, 3, 5, 10, 15, 20), 
                  labels = c("Freq = 1/1", "", "", "", "", "", "Freq = 1/20")) +
  theme_bw()+
  theme(panel.border = element_blank(), 
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(), 
        axis.line = element_line(colour = "white"),
        axis.text.x = element_text(angle = 45, hjust=1), 
        plot.caption.position = "plot", 
        plot.caption = element_text(hjust = 0))

This is exactly what scale_x_reverse is for:

ggplot(test2, aes(Freq, SD, z = Intro_0)) +
  geom_contour_filled(bins = 9)+
  scale_fill_brewer(palette = "BuPu")+
  labs(x = "Frequency", y = "Magnitude", title = "Test Plot", fill = "Legend") +
  scale_x_reverse(breaks = c(1, 2, 3, 5, 10, 15, 20), 
                  labels = c("Freq = 1/1", "", "", "", "", "", "Freq = 1/20")) +
  theme_bw()+
  theme(panel.border = element_blank(), 
        panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(), 
        axis.line = element_line(colour = "white"),
        axis.text.x = element_text(angle = 45, hjust=1), 
        plot.caption.position = "plot", 
        plot.caption = element_text(hjust = 0))