我希望 x 軸從 400 變為 100。這是我的嘗試，但沒有奏效。
set.seed(111)
var <- rep(c("SP1","SP2","AB1","AB2"), times = 5)
var.val <- rnorm(20,5,1)
level <- rep(c(100,200,300,400), each = 5)
df <- data.frame(var, var.val, level)
df <- df[order(-level),]
ggplot(df, aes(x = level, y = var.val, col = var, group = var, linetype = var)) # set linetype
geom_point(aes(fill = var), colour="white",pch=21, size=4, stroke = 1,
alpha = 0.7, data = df[df$var %in% c("SP1", "SP2"),])
theme_classic()
geom_smooth(data = df[df$var %in% c("SP1", "SP2"),],
method = "lm", formula = y ~ x, alpha = 0.2)
geom_smooth(data = df[!df$var %in% c("SP1", "SP2"),],
method = "lm", formula = y ~ x, se = FALSE)
scale_linetype_manual(values = c("dotdash", "dashed","solid", "solid"))
scale_colour_manual(values = c("black","black","red","blue"))
uj5u.com熱心網友回復：
嘗試添加scale_x_reverse()
library(tidyverse)
set.seed(111)
var <- rep(c("SP1","SP2","AB1","AB2"), times = 5)
var.val <- rnorm(20,5,1)
level <- rep(c(100,200,300,400), each = 5)
df <- data.frame(var, var.val, level)
df <- df[order(-level),]
ggplot(df, aes(x = level, y = var.val, col = var, group = var, linetype = var)) # set linetype
geom_point(aes(fill = var), colour="white",pch=21, size=4, stroke = 1,
alpha = 0.7, data = df[df$var %in% c("SP1", "SP2"),])
theme_classic()
geom_smooth(data = df[df$var %in% c("SP1", "SP2"),],
method = "lm", formula = y ~ x, alpha = 0.2)
geom_smooth(data = df[!df$var %in% c("SP1", "SP2"),],
method = "lm", formula = y ~ x, se = FALSE)
scale_linetype_manual(values = c("dotdash", "dashed","solid", "solid"))
scale_colour_manual(values = c("black","black","red","blue"))
scale_x_reverse()
由reprex 包于 2022-05-04 創建(v2.0.1)
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/471601.html