v <- 2^(7:17)
min_lon <- 6.164780
max_lon <- 15.744857
min_lat <- 47.228296
max_lat <- 54.426407
center_lon <- (min_lon + max_lon)/2
center_lat <- (min_lat + max_lat)/2
df <- data.frame(id = 1:sum(v))
df$T <- rep(paste("T", v, sep="_"), v)
df$lon <- runif(sum(v),min_lon, max_lon)
df$lat <- runif(sum(v),min_lat,max_lat)
पारदर्शिता = .. स्तर के साथ एक हीटमैप बनाना ..हीटमैप पारदर्शिता, रंग और विशिष्टता संतोषजनक नहीं
gg_heatmap <- function(T){
g <- ggmap(get_map(location=c(lat=center_lat, lon=center_lon), zoom=6, maptype="roadmap", source="google"))
g <- g + scale_fill_gradientn(colours=rev(rainbow(100, start=0, end=0.75)))
g <- g + stat_density2d(data=df[df$T == "T_1024",], aes(x = lon, y = lat,fill = ..level..,transparency=..level..),
size=1, bins=100, geom = 'polygon')
print(g)
}
system.time(gg_heatmap("T_1024"))
की स्थापना अल्फा द्वारा एक हीटमैप बनाना = .05
gg_heatmap <- function(T){
g <- ggmap(get_map(location=c(lat=center_lat, lon=center_lon), zoom=6, maptype="roadmap", source="google"))
g <- g + scale_fill_gradientn(colours=rev(rainbow(100, start=0, end=0.75)))
g <- g + stat_density2d(data=df[df$T == "T_1024",], aes(x = lon, y = lat,fill = ..level..), alpha=.05,
size=1, bins=100, geom = 'polygon')
print(g)
}
system.time(gg_heatmap("T_1024"))
दोनों परिणाम संतोषजनक नहीं हैं। मैं QlikView के साथ किए गए निम्न हीटमैप की तरह कुछ और एक ही डेटा सेट "T_1024" का उपयोग करना पसंद करूंगा।
तीन पहलुओं मैं QV-संस्करण के बारे में पसंद करते हैं के होते हैं:
- पारदर्शिता अभी भी मानचित्र के नीचे देखने के लिए अनुमति देता है ...
- ... जबकि रंग अभी भी अभिव्यक्तिपूर्ण हैं और पीले
- रंग अधिक जानकारी इंडेंट करने की अनुमति देता है
मैंने अल्फा स्तर को स्थिर रूप से और साथ ही सापेक्ष के साथ सेट करने के विभिन्न तरीकों के साथ प्रयोग करके (1) से निपटने की कोशिश की .. मुझे अभी भी अच्छे नतीजे नहीं मिल पाए। पारदर्शिता कभी भी वास्तव में अच्छी नहीं होती है और यदि मैं मानचित्र को रंगों को बहुत पीला देखता हूं।
(3) मैंने सोचा कि मैं उच्च बिन मान सेट करके प्रभावित कर सकता हूं।
कोई भी विचार कैसे हीटमैप प्रतिपादन या इसके बारे में कम से कम पहलुओं का अनुकूलन के लिए?
'पारदर्शिता '' stat_density2d (...) 'के लिए एक वैध तर्क है ?? आप 'अल्फा = .. स्तर..' का उपयोग क्यों नहीं कर रहे हैं? – jlhoward