# Create the dataset
Groups <- c('Treatment A','Treatment A','Treatment A','Treatment A',
'Treatment B', 'Treatment B', 'Treatment B','Treatment B',
'Treatment C', 'Treatment C', 'Treatment C', 'Treatment C')
Val <- c(2, 5, 3, 7,
4, 3, 6, 2,
7, 4, 3.5, 4)
Timepoint <- c(1, 2, 3, 4,
1, 2, 3, 4,
1, 2, 3, 4)
df2 <- data.frame(Groups, Val, Timepoint)
data_label_1 <- df2
data_label_1$label[which(data_label_1$Timepoint == max(data_label_1$Timepoint))] <-
data_label_1$Group[which(data_label_1$Timepoint == max(data_label_1$Timepoint))]
g4 <- ggplot(data_label_1, aes(x = Timepoint, y = Val, groups = Groups))
geom_line(size = 0.8, aes(linetype=Groups))
ylab('Value')
theme(panel.background = element_rect(fill = "white",
colour = "white",
size = 0.5, linetype = "solid"),
panel.grid.major = element_line(size = 0.5, linetype = 'solid',
colour = "#e7e3d8"),
panel.grid.minor = element_line(size = 0.25,
linetype = 'solid',
colour = "#e7e3d8"),
legend.background = element_rect(fill = "white", color = "black"),
legend.key = element_rect(fill = "white"),
legend.position = c(0.5, 0.9),
legend.direction = 'horizontal',
legend.box = 'horizontal'
)
g4
示例電流圖：
我還沒有在這里找到答案，至少沒有一個對我有用的答案。我試圖將水平放置的圖例的標題放在代碼頂部。但是，當使用圖例時。Title = 'top' 沒有任何變化，他保持在左側。
我是否錯過了一些東西，因為我無法想象不可能定位傳奇標題？
uj5u.com熱心網友回復：
使用guide_legend：
g4
guides(linetype = guide_legend(title.position = "top"))
要使標題居中，您可以title.hjust = 0.5在guide_legend函式中添加。
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/471622.html
上一篇：ggplotx軸標簽無法編輯