私は ggplot2 で遊んでいて、r の ggplot のプロット領域内にテーブルを追加していることがわかりました
テーブルの配置にマップ座標が使用された場合など、非デカルト座標を使用してプロットする方法はあるのでしょうか。私はいくつかの地図を持っていて、それらに対応するデータを表にしてポイントの詳細を示すことができれば素晴らしいと思いました。
非デカルト座標のannotation_customの回避策を誰かが知っているなら、それは大歓迎です。
編集:これは私のマップがどのように見えるかの画像です。これの左側にテーブルをプロットする別の方法があると思っていました.
編集：これが私がやろうとしていることです
編集：プロットの基本的なコード構造は次のとおりです
library(ggplot2)
library(ggmap)
plotdata <- read.csv("WellSummary_All_SE_NRM.csv", header = T)
plotdata <- na.omit(plotdata)
plotdata <- plotdata[1:20, c("Unit_No","neg_decimal_lat", "decimal_long", "max_drill_depth", "max_drill_date")]
map.plot<- get_map(location = c(min(plotdata$decimal_long),
min(plotdata$neg_decimal_lat),
max(plotdata$decimal_long),
max(plotdata$neg_decimal_lat)),
maptype ="hybrid",source = "google", zoom=8)
theme_set(theme_bw(base_size = 8))
colormap <- c("darkblue","blue","lightblue", "green", "yellow", "orange","darkorange", "red", "darkred")
myBreaks <- c(0,2, 10, 50, 250, 1250, 2000, 2500)
static.map <- ggmap(map.plot) %+% plotdata +
aes(x = decimal_long,
y = neg_decimal_lat,
z= max_drill_depth)+
stat_summary2d(fun = median, binwidth = c(.03, .03),alpha = 0.7) +
scale_fill_gradientn(name = "depth", colours= colormap, breaks=myBreaks,labels = format(myBreaks),
limits= c(0,2600), space = "Lab") +
labs(x = "Longitude",y = "Latitude")+
geom_text(aes(label=Unit_No),hjust=0, vjust=0,size=2,
position = position_dodge(width=0.9), angle = 45)+
coord_map()
#Creates image of the plot in file to Working Directory
filename=paste("2dmap",".png", sep="")
cat("\t",filename,"file created, saving...\n")
print(static.map)
cat("\tpassed mapping, file now being made\n")
ggsave(filename=filename,
plot = static.map,
scale = 1,
width = 6, height = 4,
dpi = 300)
今日はデータをアップロードしようと思います。
データをアップロードしました。グラデーション値とテキスト タグの配置については後で修正できるので心配する必要はありません。現在の ggmap コードもリンクしますが、データを並べ替えるために非常に大きなループを使用しています。
https://drive.google.com/file/d/0B8qOIJ-nPp9rM1U1dkEzMUM0Znc/edit?usp=sharing