ggplot2 में एक उलटा, log10 स्केल कैसे प्राप्त करें?

Question

मैं ggplot2 का उपयोग कर एक उलट, log10 एक्स पैमाने के साथ एक साजिश बनाने के लिए करना चाहते हैं:

require(ggplot2) 
df <- data.frame(x=1:10, y=runif(10)) 
p <- ggplot(data=df, aes(x=x, y=y)) + geom_point() 

हालांकि, ऐसा लगता है कि मैं यह कर सकते हैं या तो एक log10 पैमाने या एक उलट पैमाने:

p + scale_x_reverse() + scale_x_log10() 

p + scale_x_reverse() 

मुझे लगता है कि यह तार्किक है, अगर एक परत केवल एक पैमाने हो सकती है। और निश्चित रूप से मैं डेटाफ्रेम पर लॉग ट्रांसफॉर्म करके इसे हरा सकता हूं, df$xLog <- log10(df$x) लेकिन यह समाधान ggplot की भावना के विपरीत लगता है। Ggplot कॉल के बाहर डेटा ट्रांसफॉर्मेशन किए बिना इस तरह की साजिश पाने का कोई तरीका है?

Answer 1

जो लिंक ने अपनी टिप्पणी में दिया वह लिंक सही विचार (अपना स्वयं का परिवर्तन बनाएं) देता है, लेकिन scales पैकेज के संबंध में पुराना है जो ggplot2 अब उपयोग करता है। log_trans और मार्गदर्शन और प्रेरणा के लिए तराजू पैकेज में reverse_trans को देखते हुए, एक reverselog_trans समारोह बनाया जा सकता है:

p + scale_x_continuous(trans=reverselog_trans(10)) 

जो साजिश देता है::

library("scales") 
reverselog_trans <- function(base = exp(1)) { 
    trans <- function(x) -log(x, base) 
    inv <- function(x) base^(-x) 
    trans_new(paste0("reverselog-", format(base)), trans, inv, 
       log_breaks(base = base), 
       domain = c(1e-100, Inf)) 
} 

इस रूप में बस इस्तेमाल किया जा सकता

यह दिखाने के लिए थोड़ा अलग डेटा सेट का उपयोग करके कि अक्ष निश्चित रूप से है निरस्त किया गया:

DF <- data.frame(x=1:10, y=1:10) 
ggplot(DF, aes(x=x,y=y)) + 
    geom_point() + 
    scale_x_continuous(trans=reverselog_trans(10))