pbootcms网站模板|日韩1区2区|织梦模板||网站源码|日韩1区2区|jquery建站特效-html5模板网

  • <small id='fUdhI'></small><noframes id='fUdhI'>

      <legend id='fUdhI'><style id='fUdhI'><dir id='fUdhI'><q id='fUdhI'></q></dir></style></legend>

        <i id='fUdhI'><tr id='fUdhI'><dt id='fUdhI'><q id='fUdhI'><span id='fUdhI'><b id='fUdhI'><form id='fUdhI'><ins id='fUdhI'></ins><ul id='fUdhI'></ul><sub id='fUdhI'></sub></form><legend id='fUdhI'></legend><bdo id='fUdhI'><pre id='fUdhI'><center id='fUdhI'></center></pre></bdo></b><th id='fUdhI'></th></span></q></dt></tr></i><div class="qspimb3" id='fUdhI'><tfoot id='fUdhI'></tfoot><dl id='fUdhI'><fieldset id='fUdhI'></fieldset></dl></div>
          <bdo id='fUdhI'></bdo><ul id='fUdhI'></ul>
        <tfoot id='fUdhI'></tfoot>

        在 R 中自定義傳單彈出窗口

        Customizing leaflet popup in R(在 R 中自定義傳單彈出窗口)

          • <bdo id='LcUKP'></bdo><ul id='LcUKP'></ul>
              <i id='LcUKP'><tr id='LcUKP'><dt id='LcUKP'><q id='LcUKP'><span id='LcUKP'><b id='LcUKP'><form id='LcUKP'><ins id='LcUKP'></ins><ul id='LcUKP'></ul><sub id='LcUKP'></sub></form><legend id='LcUKP'></legend><bdo id='LcUKP'><pre id='LcUKP'><center id='LcUKP'></center></pre></bdo></b><th id='LcUKP'></th></span></q></dt></tr></i><div class="v3crc8h" id='LcUKP'><tfoot id='LcUKP'></tfoot><dl id='LcUKP'><fieldset id='LcUKP'></fieldset></dl></div>
            • <legend id='LcUKP'><style id='LcUKP'><dir id='LcUKP'><q id='LcUKP'></q></dir></style></legend>
              <tfoot id='LcUKP'></tfoot>

            • <small id='LcUKP'></small><noframes id='LcUKP'>

                  <tbody id='LcUKP'></tbody>
                1. 本文介紹了在 R 中自定義傳單彈出窗口的處理方法,對大家解決問題具有一定的參考價值,需要的朋友們下面隨著小編來一起學習吧!

                  問題描述

                  我正在使用 RStudio 創建一個等值線傳單地圖.我在導入到 R 的 shapefile 中有 Country 和 Url 作為屬性.

                  我希望在最終地圖的彈出窗口中將國家名稱和 URL 顯示為超鏈接.

                  以下是我目前使用的代碼:

                  m <- world_shapefiles %>%傳單() %>%addProviderTiles(providers$Esri.WorldStreetMap) %>%添加多邊形(標簽=?國家,labelOptions = labelOptions(style = list("font-weight" = "normal", padding = "3px 8px", textsize = "15px",方向=自動")),popup = ~ paste("國家:", 國家, "<br/>","<b/>","URL:", url))

                  我想在彈出窗口中看到文本單擊此處"而不是整個 url,我嘗試使用以下代碼但沒有成功.

                  popup = ~ paste("Country:", counry, "<br/>","<b/>","URL:", "<b><a href=url>點擊這里</a></b>")

                  有什么想法可以實現嗎?

                  解決方案

                  概覽

                  看完

                  # 加載必要的包圖書館(傳單)圖書館(SF)# 下載壓縮文件下載文件(url = "http://thematicmapping.org/downloads/TM_WORLD_BORDERS-0.3.zip", destfile = "TM_WORLD_BORDERS-0.3.zip")# 解壓解壓縮(zipfile =TM_WORLD_BORDERS-0.3.zip")# 轉換為 sf世界.邊界 <-read_sf(dsn = getwd(),層=TM_WORLD_BORDERS-0.3")# 添加每個國家的維基百科頁面world.borders$wiki <-paste0("https://en.wikipedia.org/wiki/", world.borders$NAME)# 制作傳單地圖我的.map <-傳單(選項=傳單選項(minZoom = 2))%>%setMaxBounds(lng1 = -180, lat1 = -89.98155760646617, lng2 = 180, lat2 = 89.99346179538875 ) %>%addTiles(urlTemplate = "https://server.arcgisonline.com/ArcGIS/rest/services/World_Street_Map/MapServer/tile/{z}/{y}/{x}")%>%addPolygons(數據 = world.borders, 填充 = "#D24618", 顏色 = "#D24618", 不透明度 = 0.5, 填充不透明度 = 0.01, 重量 = 3, 彈出 = paste0(<b>國家:</b>", world.borders$NAME, "<br>", "

                  I am using RStudio to create a choropleth leaflet map. I have Country and Url as an attribute in the shapefile that I imported to R.

                  I wish to show the Country name and URL as a hyperlink within the popup of the final map.

                  Below is the code I have used so far:

                  m <- world_shapefiles %>%
                    leaflet() %>%
                    addProviderTiles(providers$Esri.WorldStreetMap) %>%      
                    addPolygons( 
                        label=~country, 
                              labelOptions = labelOptions(style = list("font-weight" = "normal", padding = "3px 8px", textsize = "15px",
                  direction = "auto")), 
                                popup = ~ paste("Country:", country, "<br/>","<b/>","URL:", url)
                  )
                  

                  I want to see the text "Click here" instead of the entire url in the popup, I tried using the below code with no luck.

                  popup = ~ paste("Country:", counry, "<br/>","<b/>","URL:", "<b><a href=url>Click Here</a></b>")
                  

                  Any ideas to achieve it?

                  解決方案

                  Overview

                  After reading R, leaflet package, Passing a character vector of HTML tags to popups?, here's how you would modify your existing code:

                  # it seems ~ doesn't work inside of the paste0() function
                  # which is why I accessed the variables through the $
                  popup = paste0( "Country:"
                                   , world_shapefiles$country 
                                   , "<br>"
                                   , "<a href='"
                                   , world_shapefiles$url
                                   , "' target='_blank'>"
                                   , "Click Here</a>"
                                 )
                  

                  Reproducible Example

                  I use the World Borders Data Set to download shapefiles for each country in the world. I then add a Wikipedia URL for each country in the data set.

                  # load necessary packages
                  library( leaflet )
                  library( sf )
                  
                  # download zip file
                  download.file(
                    url = "http://thematicmapping.org/downloads/TM_WORLD_BORDERS-0.3.zip"
                    , destfile = "TM_WORLD_BORDERS-0.3.zip"
                  )
                  
                  # unzip 
                  unzip( zipfile = "TM_WORLD_BORDERS-0.3.zip" )
                  
                  # transfrom to sf
                  world.borders <-
                    read_sf( dsn = getwd()
                             , layer = "TM_WORLD_BORDERS-0.3" )
                  
                  # add the wikipedia page for each country
                  world.borders$wiki <-
                    paste0( "https://en.wikipedia.org/wiki/", world.borders$NAME )
                  
                  # make leaflet map
                  my.map <-
                    leaflet( options = leafletOptions( minZoom = 2 ) ) %>%
                    setMaxBounds( lng1 = -180
                                  , lat1 = -89.98155760646617
                                  , lng2 = 180
                                  , lat2 = 89.99346179538875 ) %>%
                    addTiles( urlTemplate = "https://server.arcgisonline.com/ArcGIS/rest/services/World_Street_Map/MapServer/tile/{z}/{y}/{x}" ) %>%
                    addPolygons( data = world.borders
                                 , fill = "#D24618"
                                 , color = "#D24618"
                                 , opacity = 0.5
                                 , fillOpacity = 0.01
                                 , weight = 3
                                 , popup = paste0(
                                   "<b>Country: </b>"
                                   , world.borders$NAME
                                   , "<br>"
                                   , "<a href='"
                                   , world.borders$wiki
                                   , "' target='_blank'>"
                                   , "Click Here to View Wiki</a>"
                                 )
                                 , label = ~NAME
                                 , labelOptions = labelOptions(
                                   style = list("font-weight" = "normal"
                                                , padding = "3px 8px"
                                                , textsize = "15px"
                                                , direction = "auto" ) )
                                 , highlightOptions = highlightOptions( 
                                   color = "#10539A"
                                   , weight = 3
                                   , fillColor = NA
                                 ))
                  
                  # display map
                  my.map
                  
                  # end of script #
                  

                  這篇關于在 R 中自定義傳單彈出窗口的文章就介紹到這了,希望我們推薦的答案對大家有所幫助,也希望大家多多支持html5模板網!

                  【網站聲明】本站部分內容來源于互聯網,旨在幫助大家更快的解決問題,如果有圖片或者內容侵犯了您的權益,請聯系我們刪除處理,感謝您的支持!

                  相關文檔推薦

                  Check if a polygon point is inside another in leaflet(檢查一個多邊形點是否在傳單中的另一個內部)
                  Changing leaflet markercluster icon color, inheriting the rest of the default CSS properties(更改傳單標記群集圖標顏色,繼承其余默認 CSS 屬性)
                  Trigger click on leaflet marker(觸發點擊傳單標記)
                  How can I change the default loading tile color in LeafletJS?(如何更改 LeafletJS 中的默認加載磁貼顏色?)
                  Add external geojson to leaflet layer(將外部geojson添加到傳單層)
                  Adding Leaflet layer control to sidebar(將 Leaflet 圖層控件添加到側邊欄)
                  • <bdo id='dTNs7'></bdo><ul id='dTNs7'></ul>
                    <i id='dTNs7'><tr id='dTNs7'><dt id='dTNs7'><q id='dTNs7'><span id='dTNs7'><b id='dTNs7'><form id='dTNs7'><ins id='dTNs7'></ins><ul id='dTNs7'></ul><sub id='dTNs7'></sub></form><legend id='dTNs7'></legend><bdo id='dTNs7'><pre id='dTNs7'><center id='dTNs7'></center></pre></bdo></b><th id='dTNs7'></th></span></q></dt></tr></i><div class="iutywm3" id='dTNs7'><tfoot id='dTNs7'></tfoot><dl id='dTNs7'><fieldset id='dTNs7'></fieldset></dl></div>
                    <legend id='dTNs7'><style id='dTNs7'><dir id='dTNs7'><q id='dTNs7'></q></dir></style></legend>
                    • <tfoot id='dTNs7'></tfoot>
                        <tbody id='dTNs7'></tbody>

                            <small id='dTNs7'></small><noframes id='dTNs7'>

                            主站蜘蛛池模板: 无机纤维喷涂棉-喷涂棉施工工程-山东华泉建筑工程有限公司▲ | 电镀整流器_微弧氧化电源_高频电解电源_微弧氧化设备厂家_深圳开瑞节能 | 订做不锈钢_不锈钢定做加工厂_不锈钢非标定制-重庆侨峰金属加工厂 | 消防设施操作员考试报名时间,报名入口,报考条件 | 中国在职研究生招生信息网| lcd条形屏-液晶长条屏-户外广告屏-条形智能显示屏-深圳市条形智能电子有限公司 | 水轮机密封网 | 水轮机密封产品研发生产厂家 | 工业冷却塔维修厂家_方形不锈钢工业凉水塔维修改造方案-广东康明节能空调有限公司 | 硫酸亚铁-聚合硫酸铁-除氟除磷剂-复合碳源-污水处理药剂厂家—长隆科技 | 锂电混合机-新能源混合机-正极材料混料机-高镍,三元材料混料机-负极,包覆混合机-贝尔专业混合混料搅拌机械系统设备厂家 | 双段式高压鼓风机-雕刻机用真空泵-绍兴天晨机械有限公司 | 鼓风干燥箱_真空烘箱_高温干燥箱_恒温培养箱-上海笃特科学仪器 | 制样机-密封锤式破碎机-粉碎机-智能马弗炉-南昌科鑫制样 | 代写标书-专业代做标书-商业计划书代写「深圳卓越创兴公司」 | 谈股票-今日股票行情走势分析-牛股推荐排行榜 | 多功能真空滤油机_润滑油全自动滤油机_高效真空滤油机价格-重庆润华通驰 | 好杂志网-首页| 阳光模拟试验箱_高低温试验箱_高低温冲击试验箱_快速温变试验箱|东莞市赛思检测设备有限公司 | 一航网络-软件测评官网 | 北京京云律师事务所| 3D全息投影_地面互动投影_360度立体投影_水幕灯光秀 | 广东银虎 蜂窝块状沸石分子筛-吸附脱硫分子筛-萍乡市捷龙环保科技有限公司 | 温湿度记录纸_圆盘_横河记录纸|霍尼韦尔记录仪-广州汤米斯机电设备有限公司 | 压力控制器,差压控制器,温度控制器,防爆压力控制器,防爆温度控制器,防爆差压控制器-常州天利智能控制股份有限公司 | 达利园物流科技集团-| 深圳富泰鑫五金_五金冲压件加工_五金配件加工_精密零件加工厂 | 传动滚筒_厂家-淄博海恒机械制造厂 | 玉米深加工设备|玉米加工机械|玉米加工设备|玉米深加工机械-河南成立粮油机械有限公司 | 柔软云母板-硬质-水位计云母片组件-首页-武汉长丰云母绝缘材料有限公司 | 冲击式破碎机-冲击式制砂机-移动碎石机厂家_青州市富康机械有限公司 | 美侍宠物-专注宠物狗及宠物猫训练|喂养|医疗|繁育|品种|价格 | 断桥铝破碎机_发动机破碎机_杂铝破碎机厂家价格-皓星机械 | 中药二氧化硫测定仪,食品二氧化硫测定仪|俊腾百科 | 电梯乘运质量测试仪_电梯安全评估测试仪-武汉懿之刻 | 青岛美佳乐清洁工程有限公司|青岛油烟管道清洗|酒店|企事业单位|学校工厂厨房|青岛油烟管道清洗 插针变压器-家用电器变压器-工业空调变压器-CD型电抗器-余姚市中驰电器有限公司 | 蓝牙音频分析仪-多功能-四通道-八通道音频分析仪-东莞市奥普新音频技术有限公司 | 在线浊度仪_悬浮物污泥浓度计_超声波泥位计_污泥界面仪_泥水界面仪-无锡蓝拓仪表科技有限公司 | 机制砂选粉机_砂石选粉机厂家-盐城市助成粉磨科技有限公司 | 螺旋压榨机-刮泥机-潜水搅拌机-电动泥斗-潜水推流器-南京格林兰环保设备有限公司 | 探鸣起名网-品牌起名-英文商标起名-公司命名-企业取名包满意 | 广东青藤环境科技有限公司-水质检测 | 高防护蠕动泵-多通道灌装系统-高防护蠕动泵-www.bjhuiyufluid.com慧宇伟业(北京)流体设备有限公司 |