如何为GEOM_TILE图中的传说中指定突发点？

Question

我正在使用GEOM_TILE制作热图，并且我遇到了传说中的一个小审美问题。正如以前的那样，我使用数据中的级别数量在传说中产生休息时间，并且图看起来很棒，但是休息时间并不相等，并且不值得。

有人知道如何写出断裂参数，以使传说中的突破相同且整数值得重视？

这是我的代码：

# Fake data
Freq <- rep(1:13, 15)
SD <- c(rep(1, 13), rep(2, 13), rep(3, 13), rep(4, 13), rep(5, 13), rep(6, 13), rep(7, 13), rep(8, 13), rep(9, 13), rep(10, 13), rep(11, 13), rep(12, 13), rep(13, 13), rep(14, 13), rep(15, 13))
Intro_0 <- sample(80:120,195,TRUE)
test2 <- cbind(Freq, SD, Intro_0)

# Setting up colours
colours <- colorRampPalette(c("deeppink4", "violetred", "palevioletred", "rosybrown1"))(165)
test2$Intro_0 <- factor(test2$Intro_0)
N <- nlevels(test2$Intro_0)

# Plotting
ggplot(test2, aes(x = Freq, y = SD, fill = Intro_0))+
  geom_tile()+
  xlab("Frequency of Disturbance")+ 
  ylab("Magnitude of Disturbance")+
  labs(fill="Longevity")+
  scale_x_discrete(labels= c("Once every 10 days", " ", " ", "Once per week", " ", "Once every 5 days", " ", " ", "Once every 2 days", "Once per day", "Twice per day", " ", "10 times per day"))+
  scale_fill_manual(values=colours, breaks=levels(test2$Intro_0)[seq(1, N, by=30)])+
  #scale_fill_manual(values=colours, breaks=c(80, 90, 100, 110, 120))+
  theme_tufte()+
  theme(axis.text.x = element_text(angle = 45, hjust=1))

我已经尝试过：

scale_fill_manual(values=colours, breaks=c(80, 90, 100, 110, 120))

但是传说消失了吗？

非常感谢您的任何帮助！

Answer 1

我怀疑问题是您的数据不是连续的，但可能是字符串或因素，

---

似乎问题在于您如何定义休息时间。目前尚不清楚您是如何提出休息时间的吗？

geom_tile（）将自动使基于传奇的整数。

我试图通过一些虚假数据来重现您的问题：

y = data.frame(value = sample(c(10.5273:100.727437), 300, replace = TRUE),
               group1 = sample(c("op1", "op2", "op3", "op4", "op5", "op6"),
                               300, replace = TRUE), 
               group2 = sample(c("x1", "x2", "x3", "x4", "x5", "x6", "x7"),
                               300, replace = TRUE))
colours <- colorRampPalette(c("deeppink4", "violetred", 
                              "palevioletred", "rosybrown1"))(165)
ggplot(data = y, aes(x = group2, y = group1, fill = value)) + 
         geom_tile() 

它可以通过整数休息

您能否使用此假数据尝试通过休息来重现问题，以便我们看到发生了什么？