如何在 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() 

它給出了整數中斷

您能否使用這些虛假數據來嘗試重現中斷問題，以便我們了解發生了什么？