我一直在使用 Google 的地理编码 API 对地址列表进行地理编码。它在嵌套列表中返回结果。列表中的元素可能会有所不同，有时会出现部分匹配，从而导致嵌套在最高级别的多个嵌套列表。到目前为止，我已将每个 GoogleResult 保存到单个数据框单元格中。
这是我的数据框的示例：
df <- structure(list(address = structure(c(3L, 1L, 2L), .Label = c("115 Civic Parade, Altona VIC 3018",
"Civic Parade, Altona VIC 3018", "EAST LA CLARKEFIELD 3430"), class = "factor"),
GoogleResult = list(list(list(access_points = list(), address_components = list(
list(long_name = "Los Angeles", short_name = "Los Angeles",
types = list("locality", "political")), list(long_name = "Los Angeles County",
short_name = "Los Angeles County", types = list("administrative_area_level_2",
"political")), list(long_name = "California",
short_name = "CA", types = list("administrative_area_level_1",
"political")), list(long_name …我正在寻找一种简单的方法来从闪亮的应用程序创建独立的应用程序。我第一次看到凯蒂的“闪亮遇见电子”演讲（参见谷歌）。浏览他们的网站后，我认为 Photon 是他们最新的方法！
我尝试以最简单的方式测试 Photon 但没有成功。
To test Photon, I did the following:
1. install node.js (works, tested 'npm' in CMD line, recognised)
2. install git (works, tested 'git' in CMD line, recognised)
3. install Photon using your instructions
4. Open new basic shinyApplications: RStudio > File > New file > Shiny Web App... >>
--> Name 'PhotonTestApp'
--> multiple fFIle (ui.R/server.R)
--> C:/ShinyApps
Tested to see the app works, the basic Geyser data app.
5. setwd("C:\ShinyApps\PhotonTestApp\")
6. …我有一个表格，我想将背景颜色应用于单个单元格。颜色与呈现的数据没有明显的直接关系，并在单独的数据集中指定。
我将如何应用指定的背景单元格颜色：
set.seed(123)
colours2apply <- sample(x=c(rgb(1, 0, 0 ), rgb(1, 1, 0 ), rgb(0, 1, 1 )), 25, replace = T) %>%
matrix(nrow=5) %>%
data.frame()
> colours2apply
X1 X2 X3 X4 X5
1 #FF0000 #FF0000 #00FFFF #00FFFF #00FFFF
2 #00FFFF #FFFF00 #FFFF00 #FF0000 #00FFFF
3 #FFFF00 #00FFFF #00FFFF #FF0000 #FFFF00
4 #00FFFF #FFFF00 #FFFF00 #FF0000 #00FFFF
5 #00FFFF #FFFF00 #FF0000 #00FFFF #FFFF00
到数据表，如：
datatable(iris[1:5, 1:5])
干杯，卢克
我无法使用此处的搜索功能或Google上的问题找到问题的答案.
我有一个数据框(500列宽,200,000行长),每人多行.每个单元格(除了具有人员ID的第一列)包含0或1.我正在寻找一种方法将每个人的数据帧减少到1行,其中我按人数取每列的最大值.
我知道我可以使用ddply或data.table ......如下所示......
tt <-data.frame(person=c(1,1,1,2,2,2,3,3,3), col1=c(0,0,1,1,1,0,0,0,0),col2=c(1, 1, 0, 0, 0, 0, 1 ,0 ,1))
library(plyr)
ddply(tt, .(person), summarize, col1=max(col1), col2=max(col2))
person col1 col2
1 1 1
2 1 0
3 0 1
但我不想指定我的每个列名,因为1)我有500和2)在新数据集上它们可能不同.
我想删除字符串的一部分（基于另一列）并且我对字符串的其余部分感兴趣......
例子：
dt <- data.frame(SomeText = c("ABCDEF", "ABCDEF", "ABCDEF"),
ToRemove = c("A", "CDE", ""),
WantedResult = c("BCDEF", "ABF", "ABCDEF"))
> dt
SomeText ToRemove WantedResult
1 ABCDEF A BCDEF
2 ABCDEF CDE ABF
3 ABCDEF ABCDEF
因此（以第 2 行为例），从“ABCDEF”中删除“CDE”，这样我们就剩下“ABF”
我想创建一个 selectInput ，其中包含基于我加载的数据框的选项。应将这些选项分组，如下例所示。我知道在完整写出时如何做到这一点，但是，我希望下拉列表是自动化的，这样当我更改数据框时它会自动更改。我可能会更改组列表或每个组内的指标列表。
DD <- data.frame(group=c("Diagnosis","Diagnosis", "Treatment", "Treatment", "Outcome", "Outcome", "Outcome"),
Indicator=LETTERS[1:7])
> DD
group Indicator
1 Diagnosis A
2 Diagnosis B
3 Treatment C
4 Treatment D
5 Outcome E
6 Outcome F
7 Outcome G
这就是我追求的风格：
runApp(
list(
ui = fluidPage(
sidebarLayout(
sidebarPanel(
selectInput(inputId = "IND",
label = "Select indicator:",
choices = list("Diagnosis" = c("A", "B"),
"Treatment" = c("C", "D"),
"Outcome" = c("E", "F", "G")))
, width = 3),
mainPanel(
)
)
)
, server = function(input, output, …