我正在尝试重新创建一个风筝图,以显示最丰富的大型藻类物种的分布。
我的数据在下面:
这里:dput(p2[1:3, 1:5])
structure(c(25.04240506, 24.95759494, 24.04113924, 25.0164557,
24.9835443, 24.04905063, 25.00379747, 24.99620253, 24.03955696,
25.01677215, 24.98322785, 24.01740506, 25.00474684, 24.99525316,
24.03955696), .Dim = c(3L, 5L), .Dimnames = list(c("Sphacelaria tribuloides(O)",
"Amphiroa rigida (R)", "Stypocaulon scoparium (O)"), c("A1",
"A2", "A3", "B1", "B2")))
当前输出:
[![这是我的情节模样] [1]] [1]
目标:
[![这是我的风筝图应该是的样子] [2]] [2]
我确实不确定我在做什么错,或者怎么去解决它。
非常感谢您的帮助和事先指导。非常感谢。
注意:我更改示例的值是为了获得更多变化,因为所有值都在24或25之间,这说明了为什么在风筝图中几乎得到水平线。我做到了:
df[1:3,1:5] <- sample(5:25, 15, replace = TRUE)
A1 A2 A3 B1 B2
Sphacelaria tribuloides(O) 9 18 20 5 17
Amphiroa rigida (R) 6 18 24 18 18
Stypocaulon scoparium (O) 16 18 16 19 8
要获取风筝图,只需使用kiteChart
图中的plotrix
功能。
library(plotrix)
kiteChart(df)
我没有找到旋转y标签的方法,因为yaxt = "n"
和las = 1
似乎不适用于此功能。因此,我尝试使用ggplot2
找到一种方法。
[一种可能的方法是首先对数据框进行整形,并通过归因于其因子格式的级别以数字格式转换y和x轴。您还需要标准化“值”列:
library(dplyr)
library(tidyr)
DF <- as.data.frame(df) %>% mutate(species = rownames(df)) %>%
pivot_longer(-species, names_to = "X_var", values_to = "values") %>%
mutate(species = factor(species, levels = unique(species))) %>%
mutate(X_var = factor(X_var, levels = unique(X_var))) %>%
mutate(NewY = as.numeric(species)*2) %>%
mutate(normval = values / max(values)) %>%
mutate(NewX = as.numeric(X_var))
# A tibble: 15 x 6
species X_var values NewY normval NewX
<fct> <fct> <dbl> <dbl> <dbl> <dbl>
1 Sphacelaria tribuloides(O) A1 9 2 0.375 1
2 Sphacelaria tribuloides(O) A2 18 2 0.75 2
3 Sphacelaria tribuloides(O) A3 20 2 0.833 3
4 Sphacelaria tribuloides(O) B1 5 2 0.208 4
5 Sphacelaria tribuloides(O) B2 17 2 0.708 5
6 Amphiroa rigida (R) A1 6 4 0.25 1
7 Amphiroa rigida (R) A2 18 4 0.75 2
8 Amphiroa rigida (R) A3 24 4 1 3
9 Amphiroa rigida (R) B1 18 4 0.75 4
10 Amphiroa rigida (R) B2 18 4 0.75 5
11 Stypocaulon scoparium (O) A1 16 6 0.667 1
12 Stypocaulon scoparium (O) A2 18 6 0.75 2
13 Stypocaulon scoparium (O) A3 16 6 0.667 3
14 Stypocaulon scoparium (O) B1 19 6 0.792 4
15 Stypocaulon scoparium (O) B2 8 6 0.333 5
现在,您可以使用geom_ribbon
获取您的风筝图:
library(ggplot2)
ggplot(DF, aes(x = NewX, fill = species))+
geom_ribbon(aes(ymin = NewY-normval, ymax = NewY+normval))+
scale_y_continuous(breaks = unique(DF$NewY), labels = levels(DF$species))+
scale_x_continuous(breaks = unique(DF$NewX), labels = levels(DF$X_var), name = "")