相关疑难解决方法(0)

我正在玩的数据来自下面列出的互联网资源

nba <- read.csv("http://datasets.flowingdata.com/ppg2008.csv", sep=",")

我想要做的是创建一个2D点图,比较该表中的两个指标,每个玩家在图上表示一个点.我有以下代码:

nbaplot <- ggplot(nba, aes(x= MIN, y= PTS, colour="green", label=Name)) + 
                  geom_point() 

这给了我以下内容:

我想要的是一个玩家名字的标签就在点旁边.我认为ggplot美学中的标签功能会为我做这个,但事实并非如此.

我也尝试过text()函数和textxy()函数library(calibrate),它们似乎都不适用于ggplot.

如何为这些点添加名称标签？

说我想在ggplot中绘制两个图层,一个包含点,另一个包含线条,如果满足某个条件.

没有标准的代码可能如下所示:

library("ggplot2")

# Summarise number of movie ratings by year of movie
mry <- do.call(rbind, by(movies, round(movies$rating), function(df) {
  nums <- tapply(df$length, df$year, length)
  data.frame(rating=round(df$rating[1]), year = as.numeric(names(nums)), number=as.vector(nums))
}))

p <- ggplot(mry, aes(x=year, y=number, group=rating))

p + 
geom_point()+
geom_line()

现在绘制点而不仅仅是线条的条件是,一个名为tmp.data的对象不等于表达式"无值".

tmp.data<-c(1,2,3) # in this case the condition is fulfilled

# attempt to plot the two layers including the condition in the plotting function
p+ 
  if(tmp.data[1]!="no value"){ geom_point()+}
  geom_line()

失败....

Error: unexpected '}' in:
"p+ 
if(tmp.data[1]!="no value"){ geom_point()+}"

geom_line()geom_line: …

我制作了一个闪亮的应用程序,它使用ggmap返回静态地图.但是,当我想覆盖邮政编码边界时,我遇到一个错误,ggplot无法找到数据集.

数据集poa是邮政编码边界的数据框,即具有多边形ID的拉特和隆起.我已经尝试过添加,environment = environment()但这并没有解决我的问题.我知道数据存在,因为我调用print(str(poa))哪些打印到R控制台.

任何人都可以建议我的工作,以便ggplot可以访问poa数据帧？我很抱歉这不是一个非常可重复的例子.

更新:当我使用此代码时,ggplot能够访问poa数据帧:

print(ggmap(map)) + geom_polygon(data = poa, aes(x = LON, y = LAT, group = order), alpha = .5, colour = "black", fill = NA))

但我需要对地图的基础层进行嵌套调用ggplot,当我这样做时ggplot无法找到数据

这是我的server.R代码

我正在使用isolate,因为我在我的ui.R中有一个动作按钮,我只想在点击它时更新绘图.

library(shiny)
library(ggmap)
library(RODBC)

# Define server logic required to summarize and view the selected dataset
shinyServer(function(input, output) {

output$searchString <- renderText({
    if (input$searchButton == 0)
        return()        
    isolate({input$searchString})
})

mapSourceInput <- reactive({
    switch(input$mapSource
           , "google" = "google"
           , "stamen" = "stamen")
})

mapTypeInput <- reactive({ …

我正在努力完成我在素食主义者和ggplot2中创建的NMDS图,但无法弄清楚如何在图中添加envfit物种加载矢量.当我尝试它时说"无效的图形状态".

下面的例子稍微修改了另一个问题(从vegan包绘制ordiellipse函数到ggplot2中创建的NMDS图),但它完全表达了我想要包含的例子,因为我使用这个问题来帮助我首先将metaMDS导入ggplot2:

library(vegan)
library(ggplot2)
data(dune)

# calculate distance for NMDS
NMDS.log<-log(dune+1)
sol <- metaMDS(NMDS.log)

# Create meta data for grouping
MyMeta = data.frame(
  sites = c(2,13,4,16,6,1,8,5,17,15,10,11,9,18,3,20,14,19,12,7),
  amt = c("hi", "hi", "hi", "md", "lo", "hi", "hi", "lo", "md", "md", "lo", 
      "lo", "hi", "lo", "hi", "md", "md", "lo", "hi", "lo"),
row.names = "sites")

# plot NMDS using basic plot function and color points by "amt" from MyMeta
plot(sol$points, col = MyMeta$amt)

# same in ggplot2
NMDS = data.frame(MDS1 = sol$points[,1], …