我正在努力寻找一种用于绘制Bland-Altman图(使用blandr/epade或其他包)的数据表示解决方案,以便我可以对不同的方法进行不同的着色。我想将智能手机的加速度计测量结果与视频分析结果进行比较。因此,我读取了所有的数据,并以长格式表示它们。
Date Participant Rater Machine_ASVZ Machine Set Contraction_Mode Time_Video Smartphone Time_Smartphone
3 2019.01.26 CV CV A1 LEG PRESS 1 Con1 1340 1 1650
4 2019.01.26 CV CV A1 LEG PRESS 1 Ecc1 2580 1 2450
5 2019.01.26 CV CV A1 LEG PRESS 1 Con2 1160 1 1350
6 2019.01.26 CV CV A1 LEG PRESS 1 Ecc2 2300 1 2100
7 2019.01.26 CV CV A1 LEG PRESS 1 Con3 1220 1 1400
8 2019.01.26 CV CV A1 LEG PRESS 1 Ecc3 2120 1 1950
评分者是独立分析的两个评分者的一个因素,Time_Video和智能手机是两个智能手机测量(Time_Smartphone)的一个因素。
由于Bland-Altman图倾向于两个向量(每个方法测量一个),因此我对data.frame进行强制转换和变异,以便计算两个评分者视频分析(Time_Video)和两个智能手机测量(Time_Smartphone)的平均值:
Date Participant Machine_ASVZ Machine Set Contraction_Mode Time_Video_CV Time_Video_GRFD Time_Smartphone_1 Time_Smartphone_3 Rater_Mean Smartphone_Mean
1 2019.01.26 CV A4 LEG EXTENSION 1 Con1 1160 1140 1300 1300 1150 1300
2 2019.01.26 CV A4 LEG EXTENSION 1 Ecc1 2340 2320 2250 2300 2330 2275
3 2019.01.26 CV A4 LEG EXTENSION 1 Con2 1160 1160 1200 1150 1160 1175
4 2019.01.26 CV A4 LEG EXTENSION 1 Ecc2 2340 2360 2300 2300 2350 2300
5 2019.01.26 CV A4 LEG EXTENSION 1 Con3 1220 1200 1250 1250 1210 1250
6 2019.01.26 CV A4 LEG EXTENSION 1 Ecc3 2020 2000 2000 2000 2010 2000
>
现在,我不知道如何插入色阶(视频,智能手机)来着色Bland-Altman图,以便视频测量和智能手机测量是可区分的。
bland_altman_plot<- blandr.draw(as.numeric(unlist(dplyr::select(filter(melt_subset, Source=="Rater_Mean"),"Time"))), as.numeric(unlist(dplyr::select(filter(melt_subset, Source=="Smartphone_Mean"),"Time"))), method1name = "Method 1",
method2name = "Method 2",
plotTitle = paste("Bland-Altman-Plot ",i, sep=""),
sig.level = 0.95, LoA.mode = 1, annotate = FALSE, ciDisplay = TRUE,
ciShading = FALSE, normalLow = FALSE, normalHigh = FALSE,
lowest_y_axis = FALSE, highest_y_axis = FALSE, point_size = 2,
overlapping = FALSE, plotter = "ggplot2", x.plot.mode = "means",
y.plot.mode = "difference", plotProportionalBias = TRUE,
plotProportionalBias.se = TRUE, assume.differences.are.normal = TRUE)
我如何使用blandr包进行宽格式的关卡,以便在像Bland-Altman图这样的图中按因子着色?
发布于 2019-11-25 23:30:45
几乎在已经发表的两个案例中,我手动解决了绘图问题。您可以使用首选的绘图函数(blandaltmanleh或blandr)绘制第一组数据,然后添加点。如果您对自己生成的BA线不满意,最后一个替代方法是计算所有数据的BA统计数据,手动绘制边距和线条,然后以两个步骤/颜色绘制点。
https://stackoverflow.com/questions/56751520
复制相似问题