小编pss*_*guy的帖子

这是一个玩具的例子.data.frame中的不透明度值没有影响

library(plotly)
df <- data.frame(x=c(1,2),y=c(6,3),opacity=c(1,0.2))

plot_ly(df,
    type="bar",
    x=x,
    y=y,
    opacity=opacity,
    marker = list(         
      color='#5a22e3'    
    )
    )

我可能还想在df中扩展一个颜色列,并利用它代替TIA上方的固定值

既然卡扎菲40多年的统治已经结束,我想建立一个他与当时其他国家的权力时期的时间线图.例如美国总统,德国总理等等所以x轴是时间,y轴国家和时间线分开 - 按照正确的时间框架 - 显示尼克松,福特等美国

当我试图学习R时,我更倾向于使用该语言的解决方案,但感觉它不是最好的解决方案.对此或替代免费解决方案的任何建议？

我应该补充说,如果在R中,数据帧将启动

Country  Boss   TookCharge

USA      Nixon   1969-01-20
USA      Ford    1974-08-09
Germany  Brandt  1969-10-22
Germany  Schmidt 1974-05-16

我热衷于将Twitter时间线嵌入Shiny App中.我有相关的代码片段

<a class="twitter-timeline" href="https://twitter.com/pssGuy/timelines/524678699061641216" 
data-widget-id="524686407298596864">Soccer</a>

<script>!function(d,s,id){var js,fjs=d.getElementsByTagName(s)    [0],p=/^http:/.test(d.location)?'http':'https';if(!d.getElementById(id)){js=d.createElement(s);js.id=id;js.src=p+"://platform.twitter.com/widgets.js";fjs.parentNode.insertBefore(js,fjs);}}(document,"script","twitter-wjs");</script>

我创建了一个twitter.js文件(上面减去了脚本标签)和一个ui.R,如下所示

library(shiny)
shinyUI(fluidPage(

tags$head(includeScript("twitter.js")),

titlePanel(""),

sidebarLayout(
sidebarPanel(
),

mainPanel(
  a("Soccer", class="twitter-timeline",    href="https://twitter.com/pssGuy/timelines/524678699061641216",  data-widget-id="524686407298596864")

)
)
))

这会产生错误

ERROR: C:\Users\pssguy\Documents\R\testGoogleTwitter/ui.R:19:124: unexpected '='
18:     mainPanel(
19:       a("Soccer", class="twitter-timeline",     href="https://twitter.com/pssGuy/timelines/524678699061641216",  data-widget-id=

如果我省略了data-widget-id ="524686407298596864",我会得到一个链接,当点击该链接时,会打开一个带有正确时间轴的浏览器窗口

我注意到的一件事是给出的脚本与twitters开发教程https://dev.twitter.com/web/embedded-timelines中的脚本不完全相同

<script type="text/javascript">
window.twttr = (function (d, s, id) {
var t, js, fjs = d.getElementsByTagName(s)[0];
if (d.getElementById(id)) return;
js = d.createElement(s); js.id = id; js.src= "https://platform.twitter.com/widgets.js";
fjs.parentNode.insertBefore(js, fjs);
return window.twttr || (t = { _e: [], ready: function …

很确定我错过了一些显而易见的东西但是......

我如何重新配置​​代码,以便图表3是一个tabset？

TIA

REGEX的新手,在我六十多岁的时候跟我一起使用ColdFusion所以大概是java版本(如果有的话)

循环一些重复的文本,包括从4.95和4中获取值

<td align="right" >4.95</td> 

<td align="right" >4</td>

使用正则表达式

.+?>(.+?)</td>.+?>(.+?)</td>

但是当没有价值时遇到问题就像在字符串中那样

<td align="right" ></td>

在这种情况下,我将如何返回null或0

TIA

我试图对最近的MLB草案进行一些分析,其中包括R中的一些ggplots

selection <- draft[c("Team","Division","Position")]
head(selection)

  Team   Division Position
1  pit NL Central        P
2  sea AL West           P
3  ari NL West           P
4  bal AL East           P
5  kc  AL Central        O
6  was NL East           I

其中P =投手,O =外场等

我希望显示每个部门内按职位选择的球员数量

p <- ggplot(data=selection, aes(x=Team, fill= Position))  + geom_bar(position="stack")
p <-  p + coord_flip()
p <- p+ ylab("Players Selected")
p <- p + facet_wrap(~Division)
p

这让我成为那里的一部分,但是非常缺乏吸引力

a)分组工作但所有团队都显示在每个分区网格中 - 即使每个分区中只有5或6个团队实际 - 并且正确 - 显示数据

b)通过合作翻转,团队按反向字母顺序向下排列.我可以度假吗？左派辩护也很好

c)如何将图例设置为Pitching,Outfield而不是P和O-这是一个我需要设置和包含的向量

d)看到每个球队选择的比例对每种类型的球员都有意义也很有趣.这是通过设置position ="fill"来完成的.我可以将轴设置为%而不是0到1.我还尝试设置geom_vline(aes(xintercept = 0.5) …

我刚刚开始研究网络分析,并希望首先创建一个数据框架,了解团队中的篮球运动员一起开始的频率

理想情况下,我想合并地图函数 purrr

所以以此为输入

game_1 <- c("Andy","Bob","Chris","Doug","Evan") 
game_2 <- c("Andy","Chris","Evan","Fred","George")  

我想要这样的结果

n_1  n_2 games

Andy  Bob    1
Andy  Chris  2
Andy  Doug   1
Andy  Evan   2
Andy  Fred   1
Andy  George 1
Bob   Chris  1
Bob   Doug   1
Bob   Evan   1
Chris Doug   1
Chris Evan   2
Chris Fred   1
Chris George 1
Doug  Evan   1
Evan  Fred   1
Evan  George 1
Fred  George 1

我试图通过一个特定的足球运动员按季节为累积目标制作统计数据.我已经使用剪切功能从游戏日期获得了赛季.我有与此数据帧对应的数据

df.raw <-
    data.frame(Game = 1:20,
            Goals=c(1,0,0,2,1,0,3,2,0,0,0,1,0,4,1,2,0,0,0,3),     
               season = gl(4,5,labels = c("2001", "2002","2003", "2004")))

在现实生活中,每个赛季的比赛数量可能不一定

我想最终得到这样的数据

df.seasoned <-
    data.frame(Game = 1:20,seasonGame= rep(1:5),
            Goals=c(1,0,0,2,1,0,3,2,0,0,0,1,0,4,1,2,0,0,0,3),
            cumGoals = c(1,1,1,3,4,0,3,5,5,5,0,1,1,5,6,2,2,2,2,5),     
               season = gl(4,5,labels = c("2001", "2002","2003", "2004")))

随着目标累计在一年内总结和本赛季的比赛数

最新版本的DT 包允许编辑

我希望您可以直观地使用该表来替换基础 data.frame 中的值，作为编码的快速选项，例如：-

df[1,2] <- 76
df[63,45] <- "foo"

但情况似乎并非如此。我错过了什么吗？或者这是一个潜在的增强。编辑+保存似乎是显而易见的用法

我有一个足球队信息的数据帧df游戏(MATCHID)与这些初始值

 TEAMID Venue LEAGUEPOS MATCHID
 WHU     A         5       1
 COV     H        12       1
 EVE     H        15       2
 MNU     A         2       2
 ARS     A         3       3
 LEI     H         4       3

我希望为每个游戏创建一行,以便最终看起来像

MATCHID HomeTeam AwayTeam HomePos AwayPos
   1       COV      WHU     12      5      etc.

所以我想创建一些新列,删除其他列并删除重复的行.

我在第一阶段的尝试遇到了麻烦

df $ HomeTeam < - df $ TEAMID [df $ Venue =="H"]

因为这会产生

 TEAMID Venue LEAGUEPOS MATCHID HomeTeam
   WHU     A         5       1      COV
   COV     H        12       1      EVE
   EVE     H        15       2      LEI
   MNU     A         2       2 …