小编Kum*_*lam的帖子

我正在使用传单包在R中制作地图.该地图基本上是从中国到美国的一条线.但它并没有像我期望的那样.下面是地图的图像.

所以你可以看到中国到美国之间的界线,但它正在越过陆地区域而不是直接的海上路径.

制作地图的代码如下:

library(leaflet)
structure(list(lat = c(21.4982662200928, 25.3100662231445, 25.8857326507568, 
33.5610008239746, 33.9683494567871, 46.2030830383301), lng = c(121.90234375, 
131.111709594727, 133.618789672852, 159.100082397461, 165.190643310547, 
-123.813652038574), row_rank = structure(1:6, .Label = c("1", 
"2", "3", "4", "5", "6"), class = "factor")), .Names = c("lat", 
"lng", "row_rank"), row.names = c(NA, -6L), class = "data.frame")

map <- leaflet()  %>% addTiles(urlTemplate ="http://server.arcgisonline.com/ArcGIS/rest/services/Specialty/DeLorme_World_Base_Map/MapServer/tile/{z}/{y}/{x}") #"http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png"
map <- map %>% 
  addCircleMarkers(data=df1, radius = 8, color = 'red', fill = TRUE, label = ~as.character(row_rank), labelOptions=c(noHide=TRUE)) %>%
  addPolylines(data=df1, lng = ~lng, lat = ~lat)
map …

我刚刚开始在R中使用Shiny的传单包.对于像china这样的地区,在地图中缩写是用Chinease语言.这可以改成英文吗？

我在网上搜索过这个.但是无法理解,在哪里以及如何搜索这个.任何帮助是极大的赞赏.

我想知道，我们如何在闪亮的 R 中更改传单地图的大小。例如考虑以下代码：

library(leaflet)
library(shiny)

app = shinyApp(
  ui = fluidPage(
    sidebarLayout(
      sidebarPanel( sliderInput("obs",
                    "Number of observations:",
                    min = 0,
                    max = 1000,
                    value = 500)
        ),
      mainPanel(
        leafletOutput('myMap', width = "200%", height = 1400)
        )
    )
  ),
  server = function(input, output) {
    map = leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 17)
    output$myMap = renderLeaflet(map)
  }
)

if (interactive()) print(app)

为了更改地图的大小，我可以更改 ui 中的宽度和高度参数。当我尝试在服务器中更改相同内容时，它没有成功。

我不知道，有什么方法可以通过服务器更改 ui 中的参数。我尝试了这种方法，但没有奏效。

library(leaflet)
library(shiny)

Height = 1000 
app = shinyApp(
  ui = fluidPage(
    sidebarLayout( …

我在使用 Redshift 时遇到了独特的问题。请参阅以下说明性示例：

drop table if exists joinTrim_temp1;
create table joinTrim_temp1(rowIndex1 int, charToJoin1 varchar(20));
insert into joinTrim_temp1 values(1, 'Sudan' );
insert into joinTrim_temp1 values(2, 'Africa' );
insert into joinTrim_temp1 values(3, 'USA' );

drop table if exists joinTrim_temp2;
create table joinTrim_temp2(rowIndex2 int, charToJoin2 varchar(20));
insert into joinTrim_temp2 values(1, 'Sudan ' );
insert into joinTrim_temp2 values(2, 'Africa ' );
insert into joinTrim_temp2 values(3, 'USA ' );

select * from joinTrim_temp1 a join joinTrim_temp2 b on a.charToJoin1 = b.charToJoin2;

查询的输出如下：

在查询中，您可以看到第二个表中有一个尾随空格。所以不应该发生内部联接。但似乎 Redshift 能够在加入时修剪尾随的空格。 …