我在資料框中有一列(RMSE),我希望 a 的顏色(綠色、黃綠色、黃色、橙色、紅色)lollipop chart
根據列的值而變化RMSE
。我希望代表最低green
的流行音樂是,而代表最高 RMSE 值的流行音樂是“紅色”
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 |>
dplyr::mutate(lb = as.factor(lb)) |>
ggplot2::ggplot(ggplot2::aes(x = Methods, y = RMSE, colour = Methods))
ggplot2::geom_point(size = 4)
ggplot2::geom_segment(ggplot2::aes(x = Methods, xend = Methods, yend = RMSE, y = 0))
ggplot2::scale_color_manual(values = c("green", "yellowgreen", "yellow", "orange", "red"))
ggplot2::theme_bw()
這是
uj5u.com熱心網友回復:
與@stephan 的選項類似的方法:
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()
由reprex 包創建于 2022-06-02 (v2.0.1)
uj5u.com熱心網友回復:
一種選擇是使用命名顏色向量,用于reorder
根據 的值分配名稱RMSE
:
library(ggplot2)
pal <- c("green", "yellowgreen", "yellow", "orange", "red")
names(pal) <- levels(reorder(df1$Methods, df1$RMSE))
df1 |>
dplyr::mutate(lb = as.factor(lb)) |>
ggplot2::ggplot(ggplot2::aes(x = Methods, y = RMSE, colour = Methods))
ggplot2::geom_point(size = 4)
ggplot2::geom_segment(ggplot2::aes(x = Methods, xend = Methods, yend = RMSE, y = 0))
ggplot2::scale_color_manual(values = pal)
ggplot2::theme_bw()
轉載請註明出處,本文鏈接:https://www.uj5u.com/qiye/485496.html