R语言的画图代码及差异性分析[通俗易懂]

方差分析及可视化

大家好,又见面了,我是你们的朋友全栈君。

R语言结合统计学方法画图实现

例如:


提示:写完文章后,目录可以自动生成,如何生成可参考右边的帮助文档


前言

加载我们常用的包,如ggplot2 , 在这里我只使用R的可视化功能,前期的数据清洗及处理,将数据转化为R可识别的数据格式, 我均是通过Python的pandas包来实现的,强烈推荐使用python清洗数据!!!! 自动化加星号!!!!(显著性!!!!)


提示:以下是本篇文章正文内容,下面案例可供参考

一、ggplot2是什么?

示例:ggplot2 是R语言可视化的一个包,可视化功能非常强大。

二、使用步骤

1.加载我们数据分析及画图所需要的的包

代码如下(示例):

library(xlsx)
library("Hmisc") ## to use "rcorr"
library(psych)
library(lavaan)
library(semTools)
library(haven)
library(ggcorrplot)
library(semPlot)
library(foreign)
library(MASS)
library(tidyr)
library(jtools)
library(dplyr)
library(cluster)
library(fpc)
library(ggplot2)
library(dendextend)
library(purrr)
library(ggpubr) # to use ggplotbar

2.读入数据

代码如下(示例):

setwd("F:/课题/数据/处理好的数据/20/")
raw_dt = read.xlsx2("*****.xlsx", sheetIndex = 1)

画图代码

箱线图

ggplot(dt1,aes(x=name,y=speed,fill=factor(name))) +
  stat_boxplot(geom = 'errorbar')+
  geom_boxplot() +
  stat_compare_means(label.y=5,method = 'anova') +
  labs(title = "你的标题")+
  xlab("字符串")
##代码2
boxplot(speed~group_name, dt1,  ylab = "speed, m/s",xlab= "A=60,B=40,C=20,单位:min",col = "bisque" )



增加显著性标志,加星星

ggplot(dt2,aes(x=Usedtime,y=Trust,fill=factor(Usedtime))) +
  geom_boxplot() +
  stat_boxplot(geom = 'errorbar')+
  stat_compare_means(label.y=5.8,method = 'anova')+
  stat_compare_means(comparisons = list(c(1,2),c(1,3),c(1,4),c(2,3),c(2,4),c(3,4)),label.y=c(4.9,5.2,5.5,5.7,5.9,6),label ='p.signif')+
#list(c(1,2),c(1,3)),label.y=c(4.9,5.2,5.5,5.7,5.9,6),label ='p.signif',hide.ns=T)+
  labs(title = "特斯拉车主")+
  xlab("使用时间")

双因素方差分析

双因素方差分析指的是,我们对于想要研究的某个变量,有两个变量会影响。
我这里研究的是驾驶模式(手动/自动)和驾驶时间(长/中/短)对于驾驶绩效的影响。
双因素分析代码

dt1 = read.csv("C:/Users/Heart/Desktop/接管绩效汇总_接管成功_control.csv")
attach(dt1)
aggregate(acc_x,by=list(group_name,control),FUN=mean,na.rm=TRUE)
aggregate(acc_x,by=list(group_name,control),FUN=sd,na.rm=TRUE)
fit_acc_x <- aov(acc_x~group_name*control)
summary(fit_acc_x)

总结

提示:这里对文章进行总结:

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/128465.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号