小编pss*_*guy的帖子

标题很好地涵盖了它.

我有两个传说,涉及大小和颜色,并希望有一个,比如说,在图表的顶部和一个.

这是可能的,如果是的话,如何

TIA

我有一个数据框,可以参加体育赛事

Crowd    matchDate
2345      1993-01-26
4567      1993-08-01
8888      1994-03-02
1298      1994-11-07
9876      1995-09-01 etc

1237      2011-09-09

matchdate是一个POSIXct类

我希望能够根据日期创建季节因素,例如每个季节从8月1日到7月31日,例如因子1992/3将包括日期1992-08-01至1993-07-31

理想情况下,我可以申请多项分析,而不一定在一年中有相同的开始和结束日期

我正在将一些名称的网页抓取到数据帧中

对于像"TomášRosický这样的名字,我得到一个结果"Tomá¡¡Rosický

我试过了

Encoding("Tomáš Rosický") #  with latin1 response

但不知道从那里去哪里获得带有重音的原始名称.玩了iconv没有成功

我会满意(甚至可能更喜欢)"Tomas Rosicky"的输出

我有一个闪亮的应用程序,其中server.r包括以下代码

shinyServer(function(input, output) {

  data <- reactive(function() {
   # some processing
   df # dataframe with columns: name,date,count 
 })

  output$plot1 <- reactivePlot(function() {
   # boxplot based on df$count grouped by df$name
 })

 output$plot2 <- reactivePlot(function() {
   # linegraph based on x=df$date, y=df$count grouped by df$name
 })
})     

我如何构造它,以便我可以在reactivePlots中引用df $ count等我在反应函数中创建的'数据'

干杯

我有一个玩具的例子.对由x组成的两个连续y行进行求和的最有效方法是什么

library(tibble)
l = list(x = c("a", "b", "a", "b", "a", "b"), y = c(1, 4, 3, 3, 7, 0))

df <- as_tibble(l)
df
#> # A tibble: 6 x 2
#>       x     y
#>   <chr> <dbl>
#> 1     a     1
#> 2     b     4
#> 3     a     3
#> 4     b     3
#> 5     a     7
#> 6     b     0

所以输出就是这样的

   group   sum  seq
     a      4     1
     a     10     2
     b      7     1
     b      3     2

我想使用RcppRoll包中的tidyverse和可能的roll_sum()并使用代码,以便可变长度的连续行可以用于真实世界数据,其中会有很多组

TIA

我一直在成功地使用XML包来提取HTML表,但是想扩展到PDF.从以前的问题来看,似乎没有一个简单的R解决方案但是想知道是否有最近的发展

如果失败了,在Python(我是一个完整的新手)中有一些方法来获取和操作pdf,这样我就可以用R XML包完成这项工作

我正在尝试使用dygraphs的R实现

提供的示例是

library(dygraphs)

dygraph(presidents, main = "Presidential Approval") %>%
dyAxis("y", valueRange = c(0, 100)) %>%
dyAnnotation("1950-7-1", text = "A", tooltip = "Korea") %>%
dyAnnotation("1965-1-1", text = "B",  tooltip = "Vietnam")

这导致图表

将鼠标悬停在"A"上会产生一个带有"韩国"的工具提示

我希望每个点都有一个工具提示,最好完全符合文本要求 - 尽管将文本设置为""具有最小的高度/宽度值可能就足够了.我还想以一个带有日期和工具提示列的文件以编程方式附加dyAnnotations

df <- data.frame(date=as.Date(c("1950-7-1","1965-1-1")),tooltip=c("Korea","Vietnam"))

这是可行的,如果是的话,怎么样？TIA

我使用Flex/ColdFusion/MSSQl组合来获取用户的输入以生成网站的图表.这可能在R？我使用RODBC和sqlQuery作为一种生成静态图的方法,但似乎无法找到一种动态的方法.JU,你

我试图使用ggplot vline和hline在线图上显示截距,但是希望线条在图形上的截取点停止.这可能在ggplot中还是有其他解决方案

library(ggplot2)

pshare <- data.frame()

for (i in 1:365) {
  pshare <- rbind(pshare,c(i, pbirthday(i,365,coincident=3)))
}

names(pshare) <- c("number","probability")

x25 <- qbirthday(prob = 0.25, classes = 365, coincident = 3) #61
x50 <- qbirthday(prob = 0.50, classes = 365, coincident = 3)
x75 <- qbirthday(prob = 0.75, classes = 365, coincident = 3)

p <- qplot(number,probability,data=subset(pshare,probability<0.99))

p <- p + geom_vline(xintercept = c(x25,x50,x75))
p <- p + geom_hline(yintercept = c(0.25,0.5,0.75))
p

所以,例如,我希望0.25/61线在他们在情节上相遇时结束

TIA

我有一个基于hugo-future-imperfect主题的博客网站,其中在rmd中正确创建了DT输出,但在应用serve_site/build_site时未显示数据(尽管标题为)

我创建了两个全新的网站(因此没有其他复杂情况)来说明问题.这是代码和输出

```{r DT}
library(DT)
library(tidyverse)

iris %>% 
  datatable()
```

a)默认主题

b)hugo-imperfect