R Language
Wykres słupkowy

Wprowadzenie

funkcja barplot ()

Na wykresie słupkowym poziomy czynników są umieszczane na osi x, a częstotliwości (lub proporcje) różnych poziomów czynników są uwzględniane na osi y. Dla każdego poziomu współczynnika budowany jest jeden słupek o jednolitej szerokości z wysokościami proporcjonalnymi do częstotliwości poziomu współczynnika (lub proporcji).

Funkcja barplot() znajduje się w pakiecie graficznym biblioteki systemowej R. Do funkcji barplot() należy podać co najmniej jeden argument. Pomoc R nazywa to heights , które muszą być wektorem lub macierzą. Jeśli jest to wektor, jego członkami są różne poziomy czynników.

Aby zilustrować barplot() , rozważ następujące przygotowanie danych:

> grades<-c("A+","A-","B+","B","C")
> Marks<-sample(grades,40,replace=T,prob=c(.2,.3,.25,.15,.1))
> Marks
[1] "A+" "A-" "B+" "A-" "A+" "B"  "A+" "B+" "A-" "B"  "A+" "A-"
[13] "A-" "B+" "A-" "A-" "A-" "A-" "A+" "A-" "A+" "A+" "C"  "C" 
[25] "B"  "C"  "B+" "C"  "B+" "B+" "B+" "A+" "B+" "A-" "A+" "A-"
[37] "A-" "B"  "C"  "A+"
> 

Wykres słupkowy wektora Znaków jest uzyskiwany z

> barplot(table(Marks),main="Mid-Marks in Algorithms")

Zauważ, że funkcja barplot () umieszcza poziomy współczynników na osi x w lexicographical order poziomów. Korzystając z parametru names.arg , słupki na wykresie można umieszczać w kolejności określonej w wektorze stopni .

# plot to the desired horizontal axis labels
> barplot(table(Marks),names.arg=grades ,main="Mid-Marks in Algorithms")

Kolorowe paski można rysować za pomocą parametru col= .

> barplot(table(Marks),names.arg=grades,col = c("lightblue", 
        "lightcyan", "lavender", "mistyrose",  "cornsilk"),
         main="Mid-Marks in Algorithms")

Wykres słupkowy z poziomymi słupkami można uzyskać w następujący sposób:

> barplot(table(Marks),names.arg=grades,horiz=TRUE,col = c("lightblue",
          "lightcyan", "lavender", "mistyrose",  "cornsilk"),
           main="Mid-Marks in Algorithms")

Wykres słupkowy z proporcjami na osi y można uzyskać w następujący sposób:

> barplot(prop.table(table(Marks)),names.arg=grades,col = c("lightblue",
           "lightcyan", "lavender", "mistyrose",  "cornsilk"),
            main="Mid-Marks in Algorithms")

Rozmiary nazw na poziomie czynnika na osi X można zwiększyć za pomocą parametru cex.names .

> barplot(prop.table(table(Marks)),names.arg=grades,col = c("lightblue",
          "lightcyan", "lavender", "mistyrose",  "cornsilk"),
           main="Mid-Marks in Algorithms",cex.names=2)

Parametr heights barplot() może być macierzą. Na przykład może to być macierz, gdzie kolumny to różne przedmioty wzięte z kursu, rzędy mogą być etykietami ocen. Rozważ następującą macierz:

> gradTab
     Algorithms Operating Systems Discrete Math
  A-         13                10             7
  A+         10                 7             2
  B           4                 2            14
  B+          8                19            12
  C           5                 2             5

Aby narysować ułożony pasek, wystarczy użyć polecenia:

> barplot(gradTab,col = c("lightblue","lightcyan",
       "lavender", "mistyrose",  "cornsilk"),legend.text = grades,
        main="Mid-Marks in Algorithms")

Aby narysować zestawione pręty, użyj parametru besides , jak podano poniżej:

 > barplot(gradTab,beside = T,col = c("lightblue","lightcyan",
       "lavender", "mistyrose",  "cornsilk"),legend.text = grades,
        main="Mid-Marks in Algorithms")

Poziomy wykres słupkowy można uzyskać za pomocą parametru horiz=T :

> barplot(gradTab,beside = T,horiz=T,col = c("lightblue","lightcyan",
       "lavender", "mistyrose",  "cornsilk"),legend.text = grades,
        cex.names=.75,main="Mid-Marks in Algorithms")