這是我的資料集的負責人:
structure(list(Aasta = c(2011, 2012, 2013, 2014, 2015, 2016),
tvs = c("Püsiv t??v?imetus", "Püsiv t??v?imetus",
"Püsiv t??v?imetus", "Püsiv t??v?imetus", "Püsiv t??v?imetus",
"Püsiv t??v?imetus"), Protsent = c(0.001, 0.018, 0.014,
0.012, 0.013, 0.017)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"))
這是我的情節:
ggplot(merilen2, aes(y = Protsent, x = Aasta, color = tvs, label = Protsent))
geom_line()
geom_point()
ggrepel::geom_label_repel(label.size = 0,
label.padding = unit(0.3, "lines"),
size = 3,
min.segment.length = 0.2,
vjust=-0.5,
show.legend = F)
scale_x_continuous(breaks = merilen2$Aasta, labels = merilen2$Aasta)
scale_color_manual(values = cen_cols)
labs(x = 'Aasta',
y = 'Protsent',
color = 'T??v?ime staatus')
cen_theme()
這是現在的結果:

我需要將標簽作為圖表上的百分比(小數點后一位),但不知道該由誰來做。
uj5u.com熱心網友回復:
您可以將labelin更改aes為 -
label = paste0(round(Protsent * 100, 1), '%')
完整代碼 -
library(ggplot2)
ggplot(merilen2, aes(y = Protsent, x = Aasta, color = tvs,
label = paste0(round(Protsent * 100, 1), '%')))
geom_line()
geom_point()
ggrepel::geom_label_repel(label.size = 0,
label.padding = unit(0.3, "lines"),
size = 3,
min.segment.length = 0.2,
vjust=-0.5,
show.legend = F)
scale_x_continuous(breaks = merilen2$Aasta, labels = merilen2$Aasta)
labs(x = 'Aasta',
y = 'Protsent',
color = 'T??v?ime staatus')
洗掉scale_color_manual,因為 cen_cols未定義。
uj5u.com熱心網友回復:
只需添加
scale_y_continuous(label=scales::label_percent(.1))
轉載請註明出處,本文鏈接:https://www.uj5u.com/net/438210.html
上一篇:如何擺脫分面圖上的注釋?
