小编Gre*_*mon的帖子

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

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.

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

最初我创建了这个闪亮的界面,其中包含参数"公司ID"和"日期",但这里我们遇到了一个问题:大多数人都不知道我们通过他们的id工作的公司,只有他们的名字,即(McDonalds,Radioshack) .

所以我想理想地创建一个像这样的搜索功能

我目前的想法是将包括我们所有合作伙伴公司及其ID的列表的表格传递给global.R.然后将textInput作为搜索变量传入,并在服务器端执行搜索.但是,我迷失了如何将searchResults传递回selectInput面板上的UI？

我目前的代码:

ui.R

library(shiny)

shinyUI(pageWithSidebar(


  sidebarPanel(

    textInput("nameSearch", "Or, Search for company name", 'McDonald'),
    selectInput("partnerName", "Select your choice", list( "searchResults" ),
    br(),
    submitButton("Update View"),
    br(),

  ),

server.R

  shinyServer(function(input, output) {

  #subTable
  searchResult<- reactive({
    subset(partners, grepl(input$nameSearch, partners$name))
  })

  output$searchResults <- renderTable({ 
    searchResult[,1]
    })

global.R

partners<- read.csv("partnersList.csv", fill=TRUE)

partnersList就是这种格式

    name            id 
 ------------------
    McDonalds        1
    Wendy's          2
    Bestbuy          3 

我在Excel中有几百个单元格,我想连接成一个单独的字符串.是否有一种更简单的方法可以手动逐一进行操作以便将它们输入CONCATENATE(A1, A2, ....)？

CONCATENATE(A1:A255) 不起作用.

目前我有一个R闪亮的应用程序,运行它我打开RStudio并执行

setwd("C:/Users/Me/Desktop/R/ShinyProject2")
library(shiny)
......
runApp()

从位于我的目录中的R脚本.

我正在将应用程序发送给不知道如何使用R的同事进行审核.

所以我只是想知道......是否有一种简单的方法来编写可直接打开UI的可执行文件,而无需单击打开R studio并执行代码？

闪亮的新手在这里.

我正在尝试编写一个R闪亮的脚本,我想要做的一件事是生成给定日期和不同地区的给定广告客户的广告观看次数的直方图.

我的表有以下列(带有示例数据):

Date    Impressions Advertiser  Factor 1         DMA

2/19       22789     McDonalds   Cheap           Los Angeles
2/17       15002    Regal Cinem  Luxury          New York
2/20       12345     McDonalds   Cheap           D.C.

UI选项卡上的所需输出与ggplot类似

ggplot(df2, aes(x=DMA, y=Impressions, fill=DMA)) +geom_histogram()

并且应该看起来像这样

但是,我收到了一个错误

Error: object 'DMA' not found

当我基本上将同样的公式粘贴到R Shiny时.我的代码如下

server.R

library(shiny)
library(ggplot2)

df<- na.omit(read.csv("data.csv", fill= TRUE, nrows= 3000000))

shinyServer(function(input, output){

df2<- reactive({df[df$Date==input$date & df$Advertiser==input$name, ]})

#FIXME why is this plot not printing
output$plot1<- renderPlot({
  print(ggplot(df2, aes(x=DMA, y=Impressions, fill=DMA)) +geom_histogram())

})
#end of server brackets
})

ui.R

library(shiny) …

我试图编写一个函数来解析和合并一些数据.但是R会抛出意外的符号错误异常.我尝试了不同的方法来解决这个问题,仍然无法正常工作.请帮忙.

看代码

$aggall = function(df,grp){numcols = sapply(df,class) %in% 
c('integer', 'numeric') result = aggregate(df[,numcols],df[grp],mean) 
 counts = as.data.frame(table(df[grp])) names(counts)[1] = 
 grp merge(counts, result, sort=FALSE)}

错误:"aggall = function(go,grp){numcols = sapply(go,class)%in%c('integer','numeric')结果中的意外符号"

我真的不知道如何针对这个问题提出具体问题,所以我会尽力解释这个问题

有问题的表格包含以下列.

**Table#1 Patients**
-PatID
-Name
-Guarantor FK_PatID (Refer to Patients Table)

好吧,我想说我想从单个SQL查询中选择患者的姓名,以及表中的担保人姓名.

SELECT p.Name, p.Guarantor
FROM Patients P

这个陈述将告诉我患者的姓名和担保人的PatID,但是我如何匹配该担保人的ID以在同一个SQL语句中获取它的名字？