r - 在 r 中使用 ggplot2 在绘图 map 的工具提示中编辑标签

Question

我知道这个问题已经被问过很多次了，但我认为自从这些问题被问到之后，plotly 的一些基本语法已经发生了变化。使用 ggplotly()创建 choropleth map 给出了长、纬度、组和我的美学变量之一的默认工具提示。我知道工具提示只映射美学中的内容。我想要做的就是自定义工具提示，以便它显示我的数据集中的一些变量(包括那些未映射到美学的变量)而不是其他变量(例如坐标)。下面是一个可重现的示例以及我迄今为止尝试过的示例。我按照在回答其他问题时给出的建议无济于事。

#Load dependencies
library(rgeos)
library(stringr)
library(rgdal)
library(maptools)
library(ggplot2)
library(plotly)

#Function to read shapefile from website
dlshape=function(shploc, shpfile) {
  temp=tempfile()
  download.file(shploc, temp)
  unzip(temp)
  shp.data <- sapply(".", function(f) {
    fp <- file.path(temp, f)
    return(readOGR(".",shpfile))
  })
}

austria <- dlshape(shploc="http://biogeo.ucdavis.edu/data/gadm2.8/shp/AUT_adm_shp.zip", 
                   "AUT_adm1")[[1]]
#Create random data to add as variables
austria@data$example1<-sample(seq(from = 1, to = 100, by = 1), size = 11, replace = TRUE)
austria@data$example2<-sample(seq(from = 1, to = 100, by = 1), size = 11, replace = TRUE)
austria@data$example3<-sample(seq(from = 1, to = 100, by = 1), size = 11, replace = TRUE)

#Fortify shapefile to use w/ ggplot
austria.ft <- fortify(austria, region="ID_1")
data<-merge(austria.ft, austria, region="id", by.x = "id", by.y = "ID_1")

#Save as ggplot object    
gg<-ggplot(data, aes(x = long, y = lat, fill = example1, group = group)) + 
  geom_polygon() + geom_path(color="black",linetype=1) + 
  coord_equal() +
  scale_fill_gradient(low = "lightgrey", high = "darkred", name='Index') +xlab("")+ylab("") + 
  theme(axis.text = element_blank(), 
        axis.title = element_blank(), 
        axis.ticks = element_blank()) + 
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
        panel.background = element_blank(), axis.line = element_line(colour = "black")) + 
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
        panel.background = element_blank(), axis.line = element_line(colour = "black"))

#Plot using ggplotly
ggplotly(gg)

从这里我尝试了两种不同的方法。其中最成功的一种方法让我部分地达到了目标。我可以向工具提示添加新变量，但我不能做两件事:1)我无法摆脱默认情况下已显示的其他变量(从美学角度)和 2)我无法重命名变量，而不是从它们的列名中数据集(例如，我想将“example3”标记为“Example III”)。这是这种方法:

#Save as a new ggplot object except this time add ``label = example3`` to the aesthetics
 gg2<-ggplot(data, aes(x = long, y = lat, fill = example1, group = group, label = example3)) + 
  geom_polygon() + geom_path(color="black",linetype=1) + 
  coord_equal() +
  scale_fill_gradient(low = "lightgrey", high = "darkred", name='Index') +xlab("")+ylab("") + 
  theme(axis.text = element_blank(), 
        axis.title = element_blank(), 
        axis.ticks = element_blank()) + 
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
        panel.background = element_blank(), axis.line = element_line(colour = "black")) + 
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
        panel.background = element_blank(), axis.line = element_line(colour = "black"))

#Save as plotly object then plot
gg2 <- plotly_build(gg2)
gg2

我也尝试添加以下内容，但它什么也没做:

gg2$data[[1]]$text <- paste("Example I:", data$example1, "<br>",
                           "Example II:", data$example2, "<br>",
                           "Example III:", data$example3)

任何帮助深表感谢!

更新:我更新了 plotly通过从 github 而不是 CRAN 安装。使用这个更新的版本 (4.0.0) 我已经把它分开了。

gg2$x$data[[2]]$text <- paste("Example I:", data$example1, "<br>",
                             "Example II:", data$example2, "<br>",
                             "Example III:", data$example3)
gg2

现在发生的事情让我感到困惑。这增加了一个与前一个不同的额外工具提示。这个新的工具提示正是我想要的，但是它们都会出现 - 不是同时出现，而是如果我移动鼠标。请参阅下面的两个屏幕截图:




请注意，这些工具提示来自同一个单位 (Tirol)。这可能是包中的错误吗？当显示其他图形(例如时间序列而不是 map )时，不会发生这种情况。另请注意，我分配了标签“Example I”(或 II 或 III)，这并未显示在我添加的新工具提示中。

更新 #2:我发现旧的工具提示(显示长和纬度)只在悬停在边界上时出现，所以我摆脱了 geom_path(color="black",linetype=1)命令(如去除边框)，现在我已经成功解决了这个问题。但是，我仍然无法修改工具提示中显示的标签。

更新 #3:我想出了如何编辑标签但只有一个变量。这是坚果!这是我从头到尾的工作流程:

 #Load dependencies
    library(rgeos)
    library(stringr)
    library(rgdal)
    library(maptools)
    library(ggplot2)
    library(plotly)

    #Function to read shapefile from website
    dlshape=function(shploc, shpfile) {
      temp=tempfile()
      download.file(shploc, temp)
      unzip(temp)
      shp.data <- sapply(".", function(f) {
        fp <- file.path(temp, f)
        return(readOGR(".",shpfile))
      })
    }

    austria <- dlshape(shploc="http://biogeo.ucdavis.edu/data/gadm2.8/shp/AUT_adm_shp.zip", 
                       "AUT_adm1")[[1]]
    #Create random data to add as variables
    austria@data$example1<-sample(seq(from = 1, to = 100, by = 1), size = 11, replace = TRUE)
    austria@data$example2<-sample(seq(from = 1, to = 100, by = 1), size = 11, replace = TRUE)
    austria@data$example3<-sample(seq(from = 1, to = 100, by = 1), size = 11, replace = TRUE)

    #Fortify shapefile to use w/ ggplot
    austria.ft <- fortify(austria, region="ID_1")
    data<-merge(austria.ft, austria, region="id", by.x = "id", by.y = "ID_1")

    #Save as ggplot object    
    gg<-ggplot(data, aes(x = long, y = lat, fill = example1, group = group, text = paste("Province:", NAME_1))) + 
      geom_polygon(color="black", size=0.2) + 
      coord_equal() +
      scale_fill_gradient(low = "lightgrey", high = "darkred", name='Index') +xlab("")+ylab("") + 
      theme(axis.text = element_blank(), 
            axis.title = element_blank(), 
            axis.ticks = element_blank()) + 
      theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
            panel.background = element_blank(), axis.line = element_line(colour = "black")) + 
      theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), 
            panel.background = element_blank(), axis.line = element_line(colour = "black"))


gg <- plotly_build(gg)
gg

这会产生以下 plotly :



请注意，“Province”现在大写(以前不是)。诀窍是添加 text = paste("Province:", NAME_1)到美学。但是，当我尝试使用 text2=paste("Example III:", example1) 添加其他标签更改时，发生以下情况:



请注意，它无法以与呈现 text1 相同的方式呈现 text2。因此，我只是尝试添加一个没有 text2 的副本，如下所示: text=paste("Example III:", example1) - 产生以下奇怪的结果:



我开始认为像在 plotly 的 ggplot 转换中切换“图例”选项这样简单的事情是不可能的。
更新#4:所以我决定用另一种方式来处理这个问题。相反，我决定自己更改变量名称。我会从一开始就这样做，除非我不确定 ggplot2 是否/如何接受带有空格的变量 - 我想出了 `variable`那可以工作。所以我继续重新标记变量。它有效 - 有点。问题是文本出现时周围有引号。现在我需要一种方法来摆脱这些!!!任何人的想法？谢谢!这是我在文本中引用的意思的图像:

Answer 1

我也是 plotly 的新手，但在使用 ggplotly() 时，我的 ggplot2 气泡图遇到了类似的问题。 .我终于找到了一个对我有用的解决方案，并认为它也可能对你有帮助，尽管我还没有尝试过用于等值线图的解决方案。

您的第一个问题是自定义工具提示，以便它显示数据集中的一些变量(包括那些未映射到美学的变量)。
在您的 UPDATE#3 中，您介绍了:text = paste("Province:", NAME_1)进入你的 aes。如果要添加第二行自定义变量或文本，只需将其添加到括号中即可:text = paste("Province:", NAME_1, "Example III:", example1)要在两者之间添加换行符，请添加 <br>在您想要休息的地方，例如:text = paste("Province:", NAME_1, "<br>", "Example III:", example1)
您的第二个问题是自定义工具提示，以便它不显示其他(默认)变量(映射到美学，例如坐标)。
我发现这对 ggplotly() 来说非常简单。对我有用的函数:ggplotly(gg, tooltip = c("text"))在我的例子中，这删除了工具提示中显示的所有默认变量，只显示了那些用 text 自定义指定的变量。以上。您可以通过执行 ggplotly(gg, tooltip = c("text","x")) 重新添加其他变量。工具提示中显示的变量顺序将与 tooltip 中指定的顺序相同。争论。我在这里找到了这个记录:https://github.com/ropensci/plotly/blob/master/R/ggplotly.R

这个解决方案(原则上)对我使用 R 3.1.1 和 plotly 3.4.13