ggplot2 scatterplot

Question

पर पाठ लेबल जोड़ना क्या ग्राफ पर मंडलियों में टेक्स्ट लेबल जोड़ने का कोई आसान तरीका है? मैं डायरेक्टलैबल्स पैकेज का उपयोग करके इसे करने में सक्षम नहीं हूं क्योंकि मुझे त्रुटि मिलती है:

direct.label.ggplot (पी, "first.qp") में त्रुटि: डिफ़ॉल्ट प्रत्यक्ष लेबल को घुमाने के लिए रंग सौंदर्य की आवश्यकता है। "

यहाँ

और कोड है कि मैं का उपयोग कर रहे है:

यहाँ ग्राफ है।

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

साजिश को geom_text(aes(label=Occupational.Group), size=3) जोड़े आप हालांकि आकार के साथ खेलने के लिए की आवश्यकता होगी।