R闪亮。使用ggmap时弹出错误

本文介绍了R闪亮。使用ggmap时弹出错误的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 我有一个经纬度数据集 地点经纬度w 28.844692 77.103305 x 28.750925 77.1963099 y 28.702134 77.2202666 z 28.716547 77.1704 我试过下面的代码，工作正常： a< - coordinates [coordinates $ place ==y，c（place，纬度，经度）] get_constituency< - get_map（c（a $ longitude，a $ latitude）） ggmap（get_constituency）+ geom_point（aes（x = a $ longitude，y =一个$ latitude，size = 10），alpha = .5，col =red）+ scale_size（range = c（3,5）） 我使用闪亮来显示地图，此刻我正在使用打印功能来显示地图 p geom_point（aes（x = a $ longitude，y = a $ latitude，size = 10）， alpha = .5，col =red）+ scale_size（range = c（3,5）） print（p，newpage = FALSE） 它返回： lockquote eval中的错误（expr，envir，enclos）：找不到对象'a' UI.R和Server.R的附加代码 库（闪亮） ＃定义UI shinyUI（fluidPage（ ＃应用程序标题 titlePanel（Analysis！）， sidebarLayout（position =left， ＃ b $ b sidebarPanel（width =3， uiOutput（Constituency_dropdown，label =aaa））， ＃显示生成的分布图 mainPanel（ plotOutput（voteshare_2015，height =1000px，width =1024px）））） ） Attached code of UI.R and Server.Rlibrary(shiny)# Define UIshinyUI(fluidPage( # Application title titlePanel("Analysis!"), sidebarLayout(position="left", # Sidebar with a slider input sidebarPanel(width="3", uiOutput("Constituency_dropdown", label="aaa")), # Show a plot of the generated distribution mainPanel( plotOutput("voteshare_2015", height="1000px", width="1024px") ) )))library(shiny)library(plyr)library(ggplot2)library(gridExtra)library(gridBase)library(reshape)library(ggmap)library(PerformanceAnalytics)z=data.frame(x=1:10, y=11:20)coordinates <- data.frame(place=c("w", "x", "y", "z"), latitude=c(28.844692, 28.750925, 28.702134, 28.716547), longitude=c(77.103305, 77.1963099, 77.2202666, 77.1704), stringsAsFactors=FALSE)shinyServer(function(input, output) { # Constituency output$Constituency_dropdown <- reactiveUI(function() { selectInput(inputId = "Constituency", label = "Constituency", c("w","x","y","z")) })output$voteshare_2015 <- renderPlot({plot.new()gl <- grid.layout(2,2)vp.1 <- viewport(layout.pos.col = 1, layout.pos.row = 1)vp.2 <- viewport(layout.pos.col = 2, layout.pos.row = 1)vp.3 <- viewport(layout.pos.col = c(1,2), layout.pos.row = 2)pushViewport(viewport(layout=gl))a <- coordinates[coordinates$place==as.character(input$Constituency),c("place","latitude","longitude")]# First plotpushViewport(vp.1)par(new = TRUE, fig = gridFIG(), mar=c(0,0,0,0))pie(z$x,z$y)popViewport()# Second plotpushViewport(vp.2)par(new = TRUE, fig = gridFIG(), mar=c(0,0,0,0))pie(z$x,z$y)popViewport()# Your mappushViewport(vp.3)par(new = TRUE, fig = gridFIG(), mar=c(0,0,0,0))#a <- coordinates[coordinates$place==as.character(input$Constituency),c("place","latitude","longitude")]#op=plot(x=a$latitude, y=a$longitude) get_constituency <- get_map(c(a$longitude, a$latitude)) op <-ggmap(get_constituency) + geom_point(aes(x = a$longitude, y = a$latitude, size=10), alpha = .5, col="red") + scale_size(range=c(3,5))print(op, newpage = FALSE)popViewport() }) } ) Please clear all your Global environment variable from R studio and run the code. Above code returns error. Not able to identify the issue. Please help 解决方案 This works fine:require("ggmap") # apparently needs rjsoncoordinates <- data.frame(place=c("w", "x", "y", "z"), latitude=c(28.844692, 28.750925, 28.702134, 28.716547), longitude=c(77.103305, 77.1963099, 77.2202666, 77.1704), stringsAsFactors=FALSE)a <- coordinates[coordinates$place=="y",c("place","latitude","longitude")]get_constituency <- get_map(c(a$longitude, a$latitude))ggmap(get_constituency) + geom_point(aes(x = a$longitude, y = a$latitude, size=10), alpha = .5, col="red") + scale_size(range=c(3,5))p=ggmap(get_constituency) + geom_point(aes(x = a$longitude, y = a$latitude, size=10), alpha = .5, col="red") + scale_size(range=c(3,5))print(p, newpage = FALSE)EDITOP was looking for something like this:require(ggplot2)require(grid)require(gridBase)require(ggmap) z=data.frame(x=1:10, y=11:20)coordinates <- data.frame(place=c("w", "x", "y", "z"), latitude=c(28.844692, 28.750925, 28.702134, 28.716547), longitude=c(77.103305, 77.1963099, 77.2202666, 77.1704), stringsAsFactors=FALSE)a <- coordinates[coordinates$place=="y",c("place","latitude","longitude")]get_constituency <- get_map(c(a$longitude, a$latitude))# setup everythingplot.new()gl <- grid.layout(2,2)vp.1 <- viewport(layout.pos.col = 1, layout.pos.row = 1)vp.2 <- viewport(layout.pos.col = 2, layout.pos.row = 1)vp.3 <- viewport(layout.pos.col = 1, layout.pos.row = 2)vp.4 <- viewport(layout.pos.col = 2, layout.pos.row = 2)pushViewport(viewport(layout=gl))# First plotpushViewport(vp.1)par(new = TRUE, fig = gridFIG(), mar=c(0,0,0,0))pie(z$x,z$y)popViewport()# Second plotpushViewport(vp.2)par(new = TRUE, fig = gridFIG(), mar=c(0,0,0,0))pie(z$x,z$y)popViewport()# Your mappushViewport(vp.3)op <-ggmap(get_constituency) + geom_point(aes(x = a$longitude, y = a$latitude, size=10), alpha = .5, col="red") + scale_size(range=c(3,5))print(op, newpage = FALSE)np=ggmap(get_constituency) + geom_point(aes(x = a$longitude, y = a$latitude, size=10), alpha = .5, col="red") + scale_size(range=c(3,5))print(np, newpage = FALSE)popViewport()# Your mappushViewport(vp.4)op <-ggmap(get_constituency) + geom_point(aes(x = a$longitude, y = a$latitude, size=10), alpha = .5, col="red") + scale_size(range=c(3,5))print(op, newpage = FALSE)np=ggmap(get_constituency) + geom_point(aes(x = a$longitude, y = a$latitude, size=10), alpha = .5, col="red") + scale_size(range=c(3,5))print(np, newpage = FALSE)popViewport() 这篇关于R闪亮。使用ggmap时弹出错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！