我有以下数据：

library(leaflet)
library(leaflet.extras)
library(flexdashboard)
library(htmltools)
library(htmlwidgets)
library(plotly)
id = 1:1000
long = 2.2945 + rnorm( 1000, 0.1085246 , 0.1)
lat = 48.8584 + rnorm( 1000, 0.009036273 , 0.1)
my_data_1 = data.frame(id, lat, long)
id = 1:1000
long = 2.2945 + rnorm( 1000, 0.1085246 , 0.1)
lat = 48.8584 + rnorm( 1000, 0.009036273 , 0.1)
my_data_2 = data.frame(id, lat, long)

使用这些数据，我制作了这些地图：

map1 = my_data_1 %>%
    leaflet() %>%
    addTiles() %>%
    addHeatmap(lng=~long,lat=~lat,max=100,radius=20,blur=10)

map2 = my_data_2 %>%
    leaflet() %>%
    addTiles() %>%
    addHeatmap(lng=~long,lat=~lat,max=100,radius=20,blur=10)

map3 = …

我试图使用iconvR 中的函数来实现德语单词的正确音译（例如，M\xc3\xb6bel \xe2\x86\x92 Moebel）。

我编写了以下代码（尝试使用英语/德语语言环境）：

iconv("M\xc3\xb6bel", "latin1", "ASCII//TRANSLIT")\n[1] "Mobel"\n\niconv("M\xc3\xb6bel", "UTF-8", "ASCII//TRANSLIT")\n[1] NA\n\niconv("M\xc3\xb6bel", "UTF-8", "ASCII//TRANSLIT", sub ="")\n[1] "Mbel"\n\niconv("M\xc3\xb6bel", "Windows-1252", "ASCII//TRANSLIT")\n[1] "Mobel"\n

然而，这并不能正常工作。这是我的一些测试的输出：

#cat + library(ds4psy)\niconv(cat ("M", Umlaut["o"],"bel", sep = ""), "latin1", "ASCII//TRANSLIT")\nM\xc3\xb6belcharacter(0)\n

#paste/paste0 + library(ds4psy)\n> iconv(paste ("M", Umlaut["o"],"bel", sep = ""), "latin1", "ASCII//TRANSLIT")\n[1] "MA?bel"\n

为了完整起见，我还尝试了以下stri_trans_general函数stringi：

stri_trans_general("M\xc3\xb6bel", "latin-ascii")\n[1] "Mobel"\n

但是，正如您所看到的，这也不起作用。

我不明白的是，为什么该函数在PHPiconv中显然可以正常工作，但在 R 中却无法正常工作：

<?php\n    //some German\n    $utf8_sentence = \'Wei\xc3\x9f, Goldmann, G\xc3\xb6bel, …

配置

我尝试了一些带有斐波那契数的 R 和 Rcpp 基准。

纯R

我们使用fibR函数用于用纯 R 编写的代码。

fibR <- function(n) {\n    if (n < 2)\n       n\n    else\n       fib(n - 1) + fib(n - 2)\n}\n

RCPP

我们用另一个fib对 Rcpp 中编写的代码使用另一个函数。

library(Rcpp)\n\nRcpp::cppFunction('int fib(int x) {\n    if((x < 2)) \n       return(x);\n    else \n       return(fib(x-1) + fib(x-2));\n   }')\n

结果

以下是根据多个基准测试得出的结果。

library(rbenchmark)\n

之后，我做了几次测试。

benchmark(fib(30), fibR(30))[,1:3]\n      test replications elapsed\n1  fib(30)          100    0.46\n2 fibR(30)          100    0.45\n

benchmark(fib(31), …

我想这样做是因为它对于在 R 中制作“绘图”很有用。

我想看到什么，例如：

我有一个来自“boshek”的解决方案ggimage，但它有点有限。

我试着用plotly.

 no_axis <- list(
           title = "",
           zeroline = FALSE,
           showline = FALSE,
           showticklabels = FALSE,
           showgrid = FALSE
      )
 plot_ly() %>%
     layout(title = 'Quantity of cars in West Europe countries', xaxis = no_axes, yaxis = no_axes, 
         images = list(
             source = "https://jeroen.github.io/images/superfrink.gif",
             x = 1, y = 0.5, 
             sizex = 3, sizey = 2,
             xref = "x", yref = "y", 
             xanchor = "left", yanchor = "bottom"
         )
     )

我只能添加一张图片，无法添加带有文本的标签。