ggplot

Question

मैं निम्न आदेश का उपयोग कर ggplot का उपयोग कर, (शो इस पोस्ट के अंत में) कुछ परीक्षण डेटा प्लॉट कोशिश कर रहा हूँ के साथ दशमलव में वैज्ञानिक संकेतन से में परिवर्तित करें:

options(scipen=20)  
ggplot(testData,aes(x=Group.1, y=x), format(scientific=FALSE)) + 
scale_x_discrete(name="Test", formatter=comma) + geom_bar() 

साजिश काफी अच्छी तरह से उत्पन्न करता है, लेकिन एक्स-अक्ष वैज्ञानिक नोटेशन में है (जैसा कि परीक्षण डेटा में है), मैं इसे दशमलव पर प्रदर्शित करने के बारे में कैसे जाउंगा? (जैसा कि आदेश में दिखाया गया है मैं पहले से scipen विकल्प और विभिन्न फ़ॉर्मेटर विकल्पों की कोशिश की - के रूप में इस साइट पर अन्य पदों में सुझाव दिया)

मेरा परीक्षण डेटा:

> str(testData) 
'data.frame': 5 obs. of 2 variables: 
$ Group.1: Factor w/ 5 levels "(1.3e+03,1.5e+03]",..: 1 2 3 4 5 
$ x  : num 80000 94000 86000 112000 98000 

> testData 
      Group.1  x 
1 (1.3e+03,1.5e+03] 80000 
2 (1.5e+03,1.7e+03] 94000 
3 (1.7e+03,1.9e+03] 86000 
4 (1.9e+03,2.1e+03] 112000 
5 (2.1e+03,2.3e+03] 98000 

> dput(testData) 
structure(list(Group.1 = structure(1:5, .Label = c("(1.3e+03,1.5e+03]", 
"(1.5e+03,1.7e+03]", "(1.7e+03,1.9e+03]", "(1.9e+03,2.1e+03]", 
"(2.1e+03,2.3e+03]"), class = "factor"), x = c(80000, 94000, 
86000, 112000, 98000)), .Names = c("Group.1", "x"), row.names = c(NA, 
-5L), class = "data.frame") 

testData की पीढ़ी:

testData <- aggregate(as.numeric(as.character(housing7$PRICE)), 
         by=list(cut(as.numeric(as.character(housing7$SIZE)), 
         breaks=5)), FUN=mean) 

Answer 1

एक बार आपके कारक के लेबल वैज्ञानिक संकेतन में जमा हो जाती है, यह वापस सामान्य अंकन में जाने के लिए आसान नहीं है।

चूंकि आपने इस कारक को बनाने के लिए cut का उपयोग किया है, इसलिए आप dig.lab तर्क के साथ लेबल में उपयोग किए गए अंकों की संख्या बदल सकते हैं। उदाहरण के लिए:

testData <- aggregate(as.numeric(as.character(housing7$PRICE)), 
by=list(cut(as.numeric(as.character(housing7$SIZE)), breaks=5,dig.lab=6)), FUN=mean)