Hiển thị% thay vì đếm trong biểu đồ của các biến phân loại

Tôi đang vẽ một biến phân loại và thay vì hiển thị số lượng cho từng giá trị danh mục.

Tôi đang tìm cách ggplotđể hiển thị phần trăm giá trị trong danh mục đó. Tất nhiên, có thể tạo một biến khác với tỷ lệ phần trăm và âm mưu được tính toán, nhưng tôi phải thực hiện vài chục lần và tôi hy vọng sẽ đạt được điều đó trong một lệnh.

Tôi đã thử nghiệm một cái gì đó như

qplot(mydataf) +
  stat_bin(aes(n = nrow(mydataf), y = ..count../n)) +
  scale_y_continuous(formatter = "percent")

nhưng tôi phải sử dụng nó không đúng, vì tôi gặp lỗi.

Để dễ dàng tái tạo thiết lập, đây là một ví dụ đơn giản:

mydata <- c ("aa", "bb", NULL, "bb", "cc", "aa", "aa", "aa", "ee", NULL, "cc");
mydataf <- factor(mydata);
qplot (mydataf); #this shows the count, I'm looking to see % displayed.

Trong trường hợp thực tế, có lẽ tôi sẽ sử dụng ggplotthay vì qplot, nhưng cách sử dụng stat_bin đúng cách vẫn khiến tôi lảng tránh.

Tôi cũng đã thử bốn cách tiếp cận sau:

ggplot(mydataf, aes(y = (..count..)/sum(..count..))) + 
  scale_y_continuous(formatter = 'percent');

ggplot(mydataf, aes(y = (..count..)/sum(..count..))) + 
  scale_y_continuous(formatter = 'percent') + geom_bar();

ggplot(mydataf, aes(x = levels(mydataf), y = (..count..)/sum(..count..))) + 
  scale_y_continuous(formatter = 'percent');

ggplot(mydataf, aes(x = levels(mydataf), y = (..count..)/sum(..count..))) + 
  scale_y_continuous(formatter = 'percent') + geom_bar();

nhưng cả 4 đều cho:

Error: ggplot2 doesn't know how to deal with data of class factor

Lỗi tương tự xuất hiện cho trường hợp đơn giản là

ggplot (data=mydataf, aes(levels(mydataf))) +
  geom_bar()

Vì vậy, rõ ràng một cái gì đó về cách ggplottương tác với một vectơ duy nhất. Tôi đang gãi đầu, googling cho lỗi đó cho một kết quả duy nhất .

Vì điều này đã được trả lời, đã có một số thay đổi có ý nghĩa đối với ggplotcú pháp. Tóm tắt các cuộc thảo luận trong các ý kiến ​​trên:

 require(ggplot2)
 require(scales)

 p <- ggplot(mydataf, aes(x = foo)) +  
        geom_bar(aes(y = (..count..)/sum(..count..))) + 
        ## version 3.0.0
        scale_y_continuous(labels=percent)

Đây là một ví dụ có thể tái tạo bằng cách sử dụng mtcars:

 ggplot(mtcars, aes(x = factor(hp))) +  
        geom_bar(aes(y = (..count..)/sum(..count..))) + 
        scale_y_continuous(labels = percent) ## version 3.0.0

Câu hỏi này hiện đang là câu hỏi số 1 trên google về 'số lượng ggplot so với biểu đồ tỷ lệ phần trăm', vì vậy, hy vọng điều này sẽ giúp chắt lọc tất cả thông tin hiện đang được lưu trữ trong các nhận xét về câu trả lời được chấp nhận.

Lưu ý: Nếu hpkhông được đặt làm yếu tố, ggplot trả về:

mã sửa đổi này sẽ hoạt động

p = ggplot(mydataf, aes(x = foo)) + 
    geom_bar(aes(y = (..count..)/sum(..count..))) + 
    scale_y_continuous(formatter = 'percent')

nếu dữ liệu của bạn có NA và bạn không muốn đưa chúng vào cốt truyện, hãy chuyển na.omit (mydataf) làm đối số cho ggplot.

hi vọng điêu nay co ich.

Với ggplot2 phiên bản 2.1.0, nó là

+ scale_y_continuous(labels = scales::percent)

Kể từ tháng 3 năm 2017, với ggplot22.2.1, tôi nghĩ rằng giải pháp tốt nhất được giải thích trong Hadley Wickham's R cho cuốn sách khoa học dữ liệu:

ggplot(mydataf) + stat_count(mapping = aes(x=foo, y=..prop.., group=1))

stat_countTính hai biến: countđược sử dụng theo mặc định, nhưng bạn có thể chọn sử dụng prophiển thị tỷ lệ.

Nếu bạn muốn tỷ lệ phần trăm trên trục y và được gắn nhãn trên các thanh:

library(ggplot2)
library(scales)
ggplot(mtcars, aes(x = as.factor(am))) +
  geom_bar(aes(y = (..count..)/sum(..count..))) +
  geom_text(aes(y = ((..count..)/sum(..count..)), label = scales::percent((..count..)/sum(..count..))), stat = "count", vjust = -0.25) +
  scale_y_continuous(labels = percent) +
  labs(title = "Manual vs. Automatic Frequency", y = "Percent", x = "Automatic Transmission")

Khi thêm nhãn thanh, bạn có thể bỏ qua trục y cho biểu đồ sạch hơn, bằng cách thêm vào cuối:

  theme(
        axis.text.y=element_blank(), axis.ticks=element_blank(),
        axis.title.y=element_blank()
  )

Nếu bạn muốn nhãn phần trăm nhưng Ns thực tế trên trục y, hãy thử điều này:

    library(scales)
perbar=function(xx){
      q=ggplot(data=data.frame(xx),aes(x=xx))+
      geom_bar(aes(y = (..count..)),fill="orange")
       q=q+    geom_text(aes(y = (..count..),label = scales::percent((..count..)/sum(..count..))), stat="bin",colour="darkgreen") 
      q
    }
    perbar(mtcars$disp)

Đây là một cách giải quyết cho dữ liệu mặt. (Câu trả lời được chấp nhận bởi @Andrew không hoạt động trong trường hợp này.) Ý tưởng là tính giá trị phần trăm bằng cách sử dụng dplyr và sau đó sử dụng geom_col để tạo cốt truyện.

library(ggplot2)
library(scales)
library(magrittr)
library(dplyr)

binwidth <- 30

mtcars.stats <- mtcars %>%
  group_by(cyl) %>%
  mutate(bin = cut(hp, breaks=seq(0,400, binwidth), 
               labels= seq(0+binwidth,400, binwidth)-(binwidth/2)),
         n = n()) %>%
  group_by(cyl, bin) %>%
  summarise(p = n()/n[1]) %>%
  ungroup() %>%
  mutate(bin = as.numeric(as.character(bin)))

ggplot(mtcars.stats, aes(x = bin, y= p)) +  
  geom_col() + 
  scale_y_continuous(labels = percent) +
  facet_grid(cyl~.)

Đây là cốt truyện:

Lưu ý rằng nếu biến của bạn là liên tục, bạn sẽ phải sử dụng geom_histogram (), vì hàm sẽ nhóm biến đó theo "thùng".

df <- data.frame(V1 = rnorm(100))

ggplot(df, aes(x = V1)) +  
  geom_histogram(aes(y = (..count..)/sum(..count..))) 

# if you use geom_bar(), with factor(V1), each value of V1 will be treated as a
# different category. In this case this does not make sense, as the variable is 
# really continuous. With the hp variable of the mtcars (see previous answer), it 
# worked well since hp was not really continuous (check unique(mtcars$hp)), and one 
# can want to see each value of this variable, and not to group it in bins.
ggplot(df, aes(x = factor(V1))) +  
  geom_bar(aes(y = (..count..)/sum(..count..)))