
uj5u.com熱心網友回復:
新答案
我不完全確定你到底想要什么。也許你想要這樣的東西:
boxplot(df$score, horizontal = TRUE, staplewex = 1, xlab = "Scores", main = "Boxplot")
text(x=fivenum(df$score), labels =fivenum(df$score), y=1.25)
輸出:
您的平均值與您的中位數相同:
> mean(df$score)
[1] 8.5
舊答案
您可以像這樣創建兩個geom_boxplot
:
library(tidyverse)
df %>%
ggplot()
geom_boxplot(aes(x = "new", y = new))
geom_boxplot(aes(x = "prev", y = prev))
labs(x = "groups", y = "count")
theme_minimal()
輸出:
uj5u.com熱心網友回復:
您可以根據每個類別中的計數重新生成原始資料:
# Replace NAs by Os
data[is.na(data$count_new),"count_new"]<-0
data[is.na(data$count_prev),"count_prev"]<-0
# Regenerate data according to counts
new <- data$score[rep(1:nrow(data), data$count_new)]
prev <- data$score[rep(1:nrow(data), data$count_prev)]
regenerated <- data.frame(type=c(rep("prev",length(prev)),rep("new",length(new))),
value =c(prev,new))
sd(prev)
#[1] 2.110576
sd(new)
#[1] 1.881819
mean(prev)
#[1] 3.484716
mean(new)
#[1] 7.627606
boxplot(value~type,data=regenerated)
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/480660.html
下一篇:VueJS、this.$route.query.page和Type'null'不可分配給type'string'