Thêm nhãn văn bản vào hộp phân tích ggplot2

Question

Có cách nào dễ dàng để thêm nhãn văn bản vào vòng tròn trên biểu đồ không? Tôi không thể làm điều đó bằng cách sử dụng gói directlabels vì tôi gặp lỗi:

Lỗi trong direct.label.ggplot (p, "first.qp"): Cần thẩm mỹ màu để suy ra nhãn trực tiếp mặc định. "

Dưới đây là đồ thị:

Và đây là đoạn code mà tôi đã sử dụng:.

library(ggplot2) 
library(directlabels) 
#my data set: 
oc <- read.csv("http://www.columbia.edu/~mad2200/oc.csv") 
oc$percent_women <- oc$W_employment/(oc$M_employment+oc$W_employment) 
oc$size <- oc$W_employment+oc$M_employment 
p <- ggplot(oc, aes(M_w_earnings, W_w_earnings, label = as.character(Occupational.Group))) 
p + geom_point(aes(size = size, colour=percent_women)) + scale_size_continuous(range=c(0,30)) + #scale_area()+ 
#geom_point(aes(colour = oc$percent_women)) + 
coord_equal() + 
scale_colour_gradient(high = "red")+ 
ylim(700, 1700) + 
xlim(700, 1700) + 
geom_abline(slope=1) + 
labs(title = "Income Disparity by Occupation and Gender") + 
ylab("Women's Weekly Earnings in $") + 
xlab("Men's Weekly Earnings in $") 

Answer 1

Thêm geom_text(aes(label=Occupational.Group), size=3) để cốt truyện Bạn sẽ cần phải chơi với các kích thước mặc dù.