我想从一个特定的位置添加折线到其他许多闪亮 [R使用addPolylines的传单.但是,不是从一个位置链接到另一个位置,我只能按顺序将它们全部链接在一起.在板球车轮图中可以看到我想要实现的最好的例子: .

observe({
  long.path <- c(-73.993438700, (locations$Long[1:9]))
  lat.path <- c(40.750545000, (locations$Lat[1:9]))
  proxy <- leafletProxy("map", data = locations)
  if (input$paths) {
     proxy %>% addPolylines(lng = long.path, lat = lat.path, weight = 3, fillOpacity = 0.5, 
                       layerId = ~locations, color = "red")
  }
})

它是一个反应式表达式,因为我希望它们被一个复选框激活.

我真的很感激任何帮助!

我发现当我使用R Markdown时，作者的名字是斜体。

像这样：

我可以用罗马设置吗？

之所以问这些问题，是因为我是中国人。如果我用中文和斜体字写我的名字，可能会有点难看...

那我现在该怎么办？

我正在尝试将我手动创建的列表对象保存为list我可以快速引用的格式。\n保存的对象应该能够作为listnotdf或其他任何内容加载回来。

下面是我的列表对象的一部分：

citations <- list(\nas.integer(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 111)),\nas.integer(c(2, 3, 4, 5, 6, 7, 8, 9, 10, 111)),\nas.integer(c(1, 3, 4, 5, 6, 7, 8, 9, 10, 111)),\nas.integer(111),\nas.integer(111),\nas.integer(111),\nas.integer(111),\nas.integer(111),\nas.integer(111),\nas.integer(111),\nas.integer(111),\nas.integer(6),\ninteger(0),\nas.integer(c(14, 15, 16, 17, 18, 19, 20, 21, 22, 23))\n)\n

我已经引用了这个线程和nabble上的一个更早的线程，他们建议简单地使用saveand load，但我只是无法弄清楚它是如何工作的，每当我在对象save()上应用该函数list并为其指定一个 R 对象时，我总是收到错误消息。

save(citations, "/~citations.Rdata")\nError in save(citations, "~/citations.Rdata") : object \xe2\x80\x98~/citations.Rdata\xe2\x80\x99 not found\n

只是不知道是否需要其他函数调用。

我有一个数据集，其中包含一些分类变量，但它们缺少一些（NA/Null）。我想用该列的模式填充这些 NA/Null。我厌倦了以下事情，但这不起作用

MD=Data['Gender'].mode()
Data['Gender'].fillna(value=MD,inplace=True)


MD=Data['Married'].mode()
Data['Married'].fillna(value=MD,inplace=True)

MD=Data['Dependents'].mode()
Data['Dependents'].fillna(value=MD,inplace=True)

MD=Data['Self_Employed'].mode()
Data['Self_Employed'].fillna(value=MD,inplace=True)

MD=Data['Credit_History'].mode()
Data['Credit_History'].fillna(value=MD,inplace=True)

Gender                26
Married                6
Dependents            30
Education              0
Self_Employed         64
ApplicantIncome        0
CoapplicantIncome      0
LoanAmount             0
Loan_Amount_Term       0
Credit_History       100
Property_Area          0
Loan_Status            0

仍然显示缺失值。

题

rgeos::gCentroid()和返回的值是否sf::st_centroid()不同？如果是这样，如何？

语境

在阅读了wiki 中按rgeos部分导出的相关命令后，我很高兴地看到我只需要这个包——不再需要导入包——来计算给定几何的质心。r-spatial/sfsfrgeos

但是，使用sf::st_centroid()给了我这个警告，这是在这里解决的：

Warning message:
   In st_centroid.sfc(x = comarea606$geometry) :
   st_centroid does not give correct centroids for longitude/latitude data

该警告使我测试了两种质心检索方法之间的相等性，以确保无论使用哪种方法，坐标都相同。

虽然我使用identical()和%in%导致了不相同的匹配，all.equal()并且绘制了每种方法的质心的地图似乎在说这两种方法几乎相同。

有什么理由为什么一个方法会返回一组与另一个不同的值？

可重现的例子

# load neccessary packages
library( sf )
library( rgeos )

# load data
comarea606 <-
    read_sf( 
      dsn = "https://data.cityofchicago.org/api/geospatial/cauq-8yn6?method=export&format=GeoJSON" 
      , layer = "OGRGeoJSON" 
    )

# find the centroid …

题

我可以使用其他方法lapply()粘贴数据框中每列中每个元素的列名吗？

问题

目前,我正在lapply()为每一栏重新使用.

可重复的例子

# create data
df <- data.frame(
  Chicago_Has = c("Lou Malnati's", "Wrigley Field", "CTA" )
  , Seattle_Has = c("Piroshky Piroshky", "Safeco Field", "KCMT" )
  , stringsAsFactors = FALSE
)

# paste column name into each element 
# within each column
df[ "Chicago_Has" ] <- lapply( X = df[ "Chicago_Has" ]
                               , FUN = function(i) paste( "Chicago_Has", i, sep = " " )
                               )
df[ "Seattle_Has" ] <- lapply( X = df[ "Seattle_Has" …

Error message : could not find function "select"

安装包含R 函数的dplyr包后select，预计不会出现此错误，但我仍然收到此错误。我想选择数据集的特定列，但美元符号运算符也不起作用。