WYKRES SŁUPKOWY – BARPLOT

> barplot(df1$Freq,main="Rodzkład grup krwi",names.arg=df1$df)

UPRZEDNIO:

> df<-read.csv("z1.csv",header=TRUE,sep=";")
> df
   blood_type
1           B
2           A
3           A
4          AB
5           B
6           A
7           B
8          AB
9           O
10          B
11          O
12          A
13         AB
14          O
15          A
16          B
17          O
18          A
19          B
20          O
> table(df)
df
 A AB  B  O 
 6  3  6  5 
> df1<-as.data.frame(table(df))
> df1
  df Freq
1  A    6
2 AB    3
3  B    6
4  O    5