ファイルの読み込み
data <- read.csv("~/Desktop/ra_taicho.csv",T)#""の間にファイルをドラッグ
ヒストグラム
hist(post, xlim = c(0, 10),ylim = c(0, 40),lwd = 2,cex.axis = 2, cex.main = 1, cex.lab = 1.5,xlab=" ", ylab=" ", main=" ")
hist(rikai, xlim = c(0, 10),ylim = c(0, 20),lwd = 2, cex.axis = 2, cex.main = 1.5, cex.lab = 2, xaxt="n", cex=2)
エラーバーの書き方
points(xaxis, m)
lines(xaxis, m)
arrows(xaxis, m + s*1/sqrt(6), xaxis, m - s*1/sqrt(6), angle = 90, length = 0.1,lty=3)
arrows(xaxis, m - s*1/sqrt(6), xaxis, m + s*1/sqrt(6), angle = 90, length = 0.1,lty=3)
par(new=T)
箱ヒゲ図
boxplot(toi3, ylim = c(1, 4), yaxp=c(1,4,3))
中抜きのプロット
plot(xaxis,m,ylim=c(0,10),xlab="",ylab="",pch = "",lty="solid",lwd = 2, cex.axis = 2, cex.main = 2, cex.lab = 3, xaxt="n", cex=2)
#pchを空にして、とりあえずプロット
points(xaxis,m,ylim=c(0,10),xlab="",ylab="",pch = 24,lty="solid",lwd = 2, cex.axis = 2, cex.main = 2, cex.lab = 3, xaxt="n", cex=2, bg="white")
#上書きして中を白くする
Rで作成した図をパワポに出力
library(eoffice)
topptx(Plot, "Plot.pptx", width=8, height=6)