R-如何在弹出窗口（传单）中粘贴同一变量的多列

我有一个4行和几个列的数据集，分别是国家、位置、点击率、纬度、经度。 可复制的是：

structure(list(country = c("France", "France", "France", "France")
, location("Ile-de-France, Paris", "Ile-de-France, Villebon-sur-yvette", "Nord-Pas-de-Calais, Hérin", "Nord-Pas-de-Calais, Lille")
, Hits(1, 1, 3, 5)
, lat = c(46.227638, 46.227638, 46.227638, 46.227638)
, Ion = c(-2.213749, 2.213749, 2.213749, 2.213749)
)
, .Names = c("country", "location", "Hits", "lat", "Ion")
, class = "data.frame")

我想在弹出窗口中使用它，并将所有位置和点击显示为4行

我目前使用的代码是：

m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addCircles(lng=area$longitude, lat=area$latitude, popup=paste("Country:", area$Country, "<br>"
                                                            , "Location:", area$Location, "-", area$Hits, "<br>"))

m%
addTiles（）%>%#添加默认的OpenStreetMap分幅
添加圆（lng=区域$经度，lat=区域$纬度，弹出窗口=粘贴（“国家：，区域$国家，”
）
，“位置：”，区域$Location，“-”，区域$Hits，“
”）

如果你有问题，请随时提问

---

您的示例中有一些错误。 试试这个

图书馆（传单）
面积%#添加默认的OpenStreetMap分幅
添加圆（lng=面积$lon，lat=面积$lat，
弹出=粘贴（“国家：”，区域$Country，“
”，“位置：”，区域$Location，“-”，区域$Hits，
”）

---

您的示例的主要问题在提供的坐标中。您为这四个点指定了相同的坐标。这将导致仅显示最后一个点。

如果要绘制同一点的多个版本，则必须调整坐标，使其不完全相同，或者重新调整数据形状，使每个附加信息都成为数据集中的一列。我称之为“抖动”，下面有一个函数来实现它。它提供了一个不太远的轻微偏移

我使用以下代码向纬度和经度添加白噪声，使它们接近，但不重叠

这将解决经度和纬度重复值的问题。另一个使用案例是，如果您的数据以邮政编码分辨率显示，并且您拥有邮政编码质心的坐标，那么邮政编码中的所有位置都将相互重叠，您将只看到最后一个位置

# Add Jittering to the Zips so that they don't stack
l <- nrow(last)
jitterFactor <- function(l){
  jF <- runif(l, min = -1, max = 1)
  jF <- jF/100

  return(jF)
}

# use randomness so that 0's don't overlap
last$JitterLat <- jitterFactor(l)
last$JitterLon <- jitterFactor(l)

# apply the jitter
last$Lat <- last$latitude + last$JitterLat
last$Lon <- last$longitude + last$JitterLon

#为拉链添加抖动，使其不会堆叠
l你有什么具体问题？您的问题是什么？输出在web链接上如下所示。如果你有足够的声望点，请在你的问题中发布图片。网络链接有消失的趋势。对不起，我不知道我是否有足够的分数，但看起来我有。
# Add Jittering to the Zips so that they don't stack
l <- nrow(last)
jitterFactor <- function(l){
  jF <- runif(l, min = -1, max = 1)
  jF <- jF/100

  return(jF)
}

# use randomness so that 0's don't overlap
last$JitterLat <- jitterFactor(l)
last$JitterLon <- jitterFactor(l)

# apply the jitter
last$Lat <- last$latitude + last$JitterLat
last$Lon <- last$longitude + last$JitterLon