我想用另一列的元素替換一列的元素ggplot2
library(tidyverse)
df1 <- read.table(text =
"nbb_RMSE 9 0.2402482
mbb_RMSE 9 0.1023012
cbb_RMSE 8 0.2031448
tmbb_RMSE 4 0.2654746
tcbb_RMSE 9 0.4048711")
colnames(df1) <- c("Methods", "lb", "RMSE")
df1 |>
mutate(colour = fct_reorder(Methods, RMSE)) |>
ggplot(aes(Methods, RMSE, colour = colour))
geom_point(size = 4)
geom_segment(aes(Methods, xend = Methods, yend = RMSE, y = 0))
scale_color_manual(values = c("green", "yellowgreen", "yellow", "orange", "red"))
theme_bw()
我想要的是
列的lb排列方式如下：Green表示最小的RMSE對應lb列9，yellowgreen表示嵌套高值，RMSE對應lb列8，yellow表示嵌套高值，RMSE對應lb列9，orange表示嵌套高值inRMSE對應lb列中的 4，red表示嵌套高值 inRMSE對應lb列中的 9。
我希望color圖例上的標簽更改為資料框中呼叫的列的名稱lb。
這是
uj5u.com熱心網友回復：
您可以在中使用nameandlabels引數scale_color_manual
df1 |>
mutate(colour = fct_reorder(Methods, RMSE)) |>
ggplot(aes(Methods, RMSE, colour = colour))
geom_point(size = 4)
geom_segment(aes(Methods, xend = Methods, yend = RMSE, y = 0))
scale_color_manual(values = c("green", "yellowgreen", "yellow",
"orange", "red"),
labels = c(9, 8, 9, 9, 4), name = "lb")
theme_bw(base_size = 16)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/485493.html
上一篇：ggplot問題。折線圖未填充