無論樣本數如何，我都想在條形之間繪制相同的空間間隔
如下所述。
不是這樣
我的原始腳本是
myData <- read.csv('L1L2_100percent.csv', header = T, sep =',')
ggplot(data = myData, aes(x = region, y = vaf, fill = type))
geom_bar(stat = "identity", width = 0.4)
coord_flip()
我認為這與保存具有特定高度的圖片有關，但我認為高度必須由樣本數確定，但我不知道確切的值。
uj5u.com熱心網友回復：
您只需要在與條形數量成比例的保存時調整繪圖的高度。在這里，plt1有 5 個而不是 10 個酒吧，因此它應該保存的高度僅為 的一半plt2：
library(tidyverse)
# create example data
myData <-
iris %>% transmute(
region = row_number() %% 20,
vaf = Sepal.Length,
type = Species
)
plt1 <-
myData %>%
filter(region < 5) %>%
ggplot(aes(x = region, y = vaf, fill = type))
geom_bar(stat = "identity")
coord_flip()
plt2 <-
myData %>%
filter(region < 10) %>%
ggplot(aes(x = region, y = vaf, fill = type))
geom_bar(stat = "identity")
coord_flip()
ggsave("plt1.png", plt1, height = plt1$data$region %>% unique() %>% length())
ggsave("plt2.png", plt2, height = plt2$data$region %>% unique() %>% length())
Plt1：
Plt2：
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/381228.html
上一篇：使用mgcViz繪制GAM平滑效果時的時間（小時）格式
下一篇：選擇變數（使用`varSelectInput`）和使用帶有Shiny的ggplot時出錯（錯誤：`arg`必須是一個符號）