๐ R
[R] data set
sa1t
2023. 9. 27. 10:54
๋ฐ์ํ
1๋ฒ ๋ฌธ์
CSV ํ์ผ์ด ์๋ ๋ฐํํ๋ฉด์ผ๋ก ๋๋ ํ ๋ฆฌ ์ด๋
setwd("C:/Users/user/Desktop")
CSV ํ์ผ ๋ถ๋ฌ์ค๊ธฐ / ์๋ฌ์ ์ด์ = ํ์ผ์ ํ๊ธ ์ธ์ฝ๋ฉ ํด์ฃผ์ง ์์๊ธฐ ๋๋ฌธ
fileEncoding = "euc-kr" ์ต์ ์ ๋ฃ์ด์ฃผ๋ฉด๋๋ค.
boxplot_data <- read.csv("boxplot_data.csv")
Error in make.names(col.names, unique = TRUE) :
invalid multibyte string at '<b3>๋ผฑ'
boxplot_data <- read.csv("boxplot_data.csv",fileEncoding = "euc-kr")
subset ํจ์ ์ด์ฉํด ์น์ฐจ ์ธ์ ์ถ์ถ
up1 <- subset(boxplot_data, subset = group == '์น์ฐจ')
ํด๋น ๋ฐ์ดํฐ์์ y์ถ ์ด ์น๊ฐ์ , x์ถ ์ญ ๋ช boxplot
boxplot(์ด์น๊ฐ์~์ญ๋ช
, data = up1)
์ด์์น 20 ์ค์ , outbg="black" ์ค์
boxplot(์ด์น๊ฐ์~์ญ๋ช
,data = up1,outpch= 20, outbg="black")
2๋ฒ ๋ฌธ์
์น์ฐจ ๋ฐ ํ์ฐจ ์ธ์ ์ถ์ถ
upup <- subset(boxplot_data, subset = group == '์น์ฐจ')
downdown <- subset(boxplot_data, subset = group == 'ํ์ฐจ')
boxplot ํจ์์ ์ต์
์์ boxwex=0.2 ํตํด ๋ฐ์ค์ ๋์ด, at=1:5๋ฅผ ํตํ ์์ฑ ์์น ์ง์
์ด์์น(outlier)์ ๊ฐ outpch=20๊ณผ outbg="black" ์ต์
์ฌ์ฉ
๋๋ฒ์งธ boxplot ํจ์ ๋ฐ์ดํฐ ์ถ์ถ ํ add=T ์ต์
์ถ๊ฐ , boxwex=0.2๋ฅผ ํตํด ๋ฐ์ค ๋์ด , at=1:5+0.2๋ฅผ ํตํ ์์ฑ ์์น ์ง์
boxplot(์ด์น๊ฐ์~์ญ๋ช
,data = upup,outpch= 20, outbg="black", boxwex=0.25, at=1:5)
boxplot(์ด์น๊ฐ์~์ญ๋ช
,data = downdown,outpch= 20, outbg="black", add=T, boxwex=0.2, at=1:5+0.2)
๋ฐ์ํ