我有以下数据集(这只是数据集的缩减,但它具有较 Big Data 集的所有特征)
df <- structure(list(Modality = c("IMU", "IMU", "IMU", "IMU", "EMG",
"EMG", "EMG", "EMG", "EMG", "EMG", "MULTIMODAL", "MULTIMODAL",
"MULTIMODAL", "MULTIMODAL", "MULTIMODAL", "MULTIMODAL"), Accuracy = c(0.890994094,
0.932236205, 0.920874879, 0.808366656, 0.736169166, 0.727917473,
0.76442499, 0.766358025, 0.672936004, 0.544758539, 0.922476135,
0.958934517, 0.889652539, 0.878411911, 0.800769442, 0.9035499
), Precision = c(0.910120428, 0.935881939, 0.930419589, 0.858438788,
0.783804275, 0.803642164, 0.867418091, 0.826140299, 0.651388637,
0.683146414, 0.931054424, 0.960414109, 0.913705853, 0.892099619,
0.827661119, 0.917972446), Recall = c(0.890994094, 0.932236205,
0.920874879, 0.808366656, 0.736169166, 0.727917473, 0.76442499,
0.766358025, 0.672936004, 0.544758539, 0.922476135, 0.958934517,
0.889652539, 0.878411911, 0.800769442, 0.9035499), F1_Score = c(0.895340797,
0.929767228, 0.923515392, 0.820549586, 0.740460186, 0.743306797,
0.771715283, 0.778685153, 0.654271508, 0.562382109, 0.923856378,
0.958423427, 0.894510388, 0.881315329, 0.804600327, 0.905468385
), Model = c("CNN", "CNN", "LSTM", "CNN-LSTM", "LSTM-CNN", "CNN",
"LSTM", "LSTM-CNN", "CNN-LSTM", "CNN", "CNN", "LSTM", "CNN",
"LSTM-CNN", "CNN-LSTM", "CNN-LSTM")), class = c("tbl_df", "tbl",
"data.frame"), row.names = c(NA, -16L))
我想做盒子图,在那里我比较医疗模式和按模型分组.我正在使用以下代码:
library(ggpubr)
library(dplyr)
p <-ggboxplot(df, x = "Model", y = "Accuracy", color = "Modality",
palette = "jco",
add = "jitter", ylab = "Accuracy",
width = 0.7,
lwd = 1.35,
xlab = "Model", legend = "right") +
ggtitle("Boxplot of Accuracy by Model and Modality") +
theme_minimal()
anyNA(df)
情节是正确的.我得到了每个模型的3个盒子图,其中的通道进行了比较.现在,我想添加一个相同模型中的医疗设备之间的统计比较.为此,我添加了以下代码行:
p + stat_compare_means(comparisons = list(c("EMG", "IMU")), method = "wilcox.test", label = "p.signif")
但目前还没有出现统计检验.问题是,我不能在同一模型中添加关于通道的统计测试.