R语言（1）

> df<-read.table("工作簿1.csv",sep=",",header = T)
> df

读取数据

df<-read.table(“工作簿1.csv”,sep=",",header = T)
df
X len sup dose
1 1 7.4 wc 0.5
2 2 9.5 wc 0.5
3 3 3.4 wc 0.5
4 4 1.2 wc 1.0
5 5 8.3 wc 1.0
6 6 8.6 wc 1.0
7 7 5.3 wc 2.0
8 8 7.3 wc 2.0
9 9 8.5 wc 2.0
10 10 4.4 wc 2.0
11 11 8.1 oj 0.5
12 12 6.7 oj 0.5
13 13 3.7 oj 0.5
14 14 4.8 oj 1.0
15 15 0.6 oj 1.0
16 16 6.0 oj 1.0
17 17 0.9 oj 2.0
18 18 8.0 oj 2.0
19 19 3.7 oj 2.0
20 20 5.1 oj 2.0

统计值

table(df$$sup,df$dose)
0.5 1 2
oj 3 3 4
wc 3 3 4