我正在使用 R。
假設我有以下資料：
#first data set
v2 <- c("A", "B", "C", "D", "E")
types <- as.factor(sample(v2,1000, replace=TRUE, prob=c(0.3, 0.2, 0.1, 0.1, 0.1)))
var <- rnorm(1000, 10, 10)
first = data.frame(v2, types, var)
#second data set
v2 <- c("A", "B", "C", "D", "E")
types <- as.factor(sample(v2,50, replace=TRUE, prob=c(0.3, 0.2, 0.1, 0.1, 0.1)))
var <- rnorm(50, 10000, 10)
second = data.frame(v2, types, var)
#final data
final = rbind(first, second)
#create transformed column
ihs <- function(x) {
y <- log(x sqrt(x ^ 2 1))
return(y)
}
final$ihs = ihs(final$var)
我現在可以像這樣繪制上述資料：
library(ggplot2)
library(ggridges)
ggplot(final, aes(x = ihs, y = types, fill = types))
geom_density_ridges() ggtitle("my plot")
是否可以更改上圖的 x 軸，使其使用“var”變數中的比例？
這看起來像這樣：
“ihs”（反雙曲正弦）值通過以下關系對應于“var”：
hs <- function(x) {
y <- 0.5*exp(-x)*(exp(2*x)-1)
return(y)
}
例如：
> ihs(70)
[1] 4.941693
> hs( 4.941693)
[1] 69.99997
有人可以告訴我如何做到這一點嗎？
謝謝！
參考：
注意：如果您使用 R <4.1.0 的版本，請使用
function(x)而不是\(x)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/416803.html標籤：