小编Ras*_*sen的帖子
Pycharm没有显示情节
Pycharm不显示以下代码的图:
import pandas as pd
import numpy as np
import matplotlib as plt
ts = pd.Series(np.random.randn(1000), index=pd.date_range('1/1/2000', periods=1000))
ts = ts.cumsum()
ts.plot()
会发生什么是窗口出现不到一秒钟,然后再次消失.
在相同的代码上使用Pyzo IEP IDE(使用相同的解释器),该图显示了预期.
...所以问题必须是Pycharm的一些设置.我已经尝试使用python.exe和pythonw.exe作为解释器,两者具有相同的结果.
这是我的sys_info:
C:\pyzo2014a\pythonw.exe -u C:\Program Files (x86)\JetBrains\PyCharm Community Edition 3.4.1\helpers\pydev\pydevconsole.py 57315 57316
PyDev console: using IPython 2.1.0import sys; print('Python %s on %s' % (sys.version, sys.platform))
Python 3.4.1 |Continuum Analytics, Inc.| (default, May 19 2014, 13:02:30) [MSC v.1600 64 bit (AMD64)] on win32
sys.path.extend(['C:\\Users\\Rasmus\\PycharmProjects\\untitled2'])
In[3]: import IPython
print(IPython.sys_info())
{'commit_hash': '681fd77',
'commit_source': 'installation',
'default_encoding': 'UTF-8',
'ipython_path': …推荐指数
解决办法
查看次数
Rstudio中的Rpresentation - 使图像填满整个屏幕
使用knitr在Rstudio中进行演示我有一张只有一张图片的幻灯片,我想填写整个屏幕/幻灯片.我怎么做？
以下.Rpres文档的第二张幻灯片设置为2000x2000像素,但它仍然只填充屏幕的一小部分:
first slide
======
Slide with plot which I want to fill the whole screen
========================================================
title: false
```{r, echo=FALSE,out.height="2000px",out.width="2000px"}
plot(cars)
```
这就是我的意思,当我写到图片没有"填满整个屏幕"时,红线被绘制在屏幕的未被图表填充的部分.
2016年11月更新
在Rstudio版本1.0.44中创建新演示文稿时选择"HTML Slidy",可以更轻松地控制大小.以下是我想要的全高清分辨率,非常简单:
---
title: "Untitled"
output: slidy_presentation
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```
##
```{r pressure, fig.height=10, fig.width=19}
plot(pressure)
```
推荐指数
解决办法
查看次数
使用VBA将HTML表转换为Excel
将HTML表转换为Excel
下面的代码在https://rasmusrhl.github.io/stuff上获取HTML表,并将其转换为Excel格式.
问题是:
- 括号中的数字将转换为负数
- 数字被舍入或截断
解
谢谢大家的贡献.各种各样的anwers帮助我理解,为了我的目的,解决方法是最好的解决方案:因为我自己生成HTML表,我可以控制每个单元格的CSS.存在CSS代码,指示Excel如何解释单元格内容:http://cosicimiento.blogspot.dk/2008/11/styling-excel-cells-with-mso-number.html,也在此问题中解释:格式化HTML表格单元格以便Excel格式化为文本？
在我的情况下,CSS应该是文本,即mso-number-format:\"\\@\".它集成在下面的R代码中:
library(htmlTable)
library(nycflights13)
library(dplyr)
nycflights13::planes %>%
slice(1:10) %>% mutate( seats = seats*1.0001,
s1 = c("1-5", "5-10", "1/2", "1/10", "2-3", "1", "1.0", "01", "01.00", "asfdkjlæ" ),
s2 = c("(10)", "(12)", "(234)", "(00)", "(01)", "(098)", "(01)", "(01.)", "(001.0)", "()" )) -> df
rle_man <- rle(df$manufacturer)
css_matrix <- matrix( data = "mso-number-format:\"\\@\"", nrow = nrow(df), ncol = ncol(df))
css_matrix[,1] <- "padding-left: 0.4cm;mso-number-format:\"\\@\""
css_matrix[,2:10] <- "padding-left: 1cm;mso-number-format:\"\\@\""
css_matrix[,5] …推荐指数
解决办法
查看次数
看看ggplot2中的箭头geom_segment()
我正在尝试用ggplot2中的箭头绘制一个类似于此的图,这是使用基础R图形制作的.(颜色不重要)
使用ggplot2:
library(ggplot2)
library(scales)
library(grid)
df3 <- structure(list(value1 = c(51L, 57L, 59L, 57L, 56L, 56L, 60L,
66L, 61L, 61L), value2 = c(56L, 60L, 66L, 61L, 61L, 59L, 61L,
66L, 63L, 63L), group = c("A", "B", "C", "D", "E", "A", "B",
"C", "D", "E"), time = c("1999", "1999", "1999", "1999", "1999",
"2004", "2004", "2004", "2004", "2004"), y_position = c(1L, 2L,
3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L)), .Names = c("value1", "value2",
"group", "time", "y_position"), row.names = c(NA, -10L), class = …推荐指数
解决办法
查看次数
dplyr:将函数table()应用于data.frame的每一列
使用dplyr将函数table()应用于data.frame的每一列
我经常使用plyr在数据帧的每一列上应用表函数,如下所示:
library(plyr)
ldply( mtcars, function(x) data.frame( table(x), prop.table( table(x) ) ) )
是否可以在dplyr中执行此操作？
我的尝试失败了:
mtcars %>% do( table %>% data.frame() )
melt( mtcars ) %>% do( table %>% data.frame() )
推荐指数
解决办法
查看次数
在stargazer()LaTeX输出中的优势比而不是logits
使用stargazer在逻辑回归对象上创建LaTeX表时,标准行为是输出每个模型的logit值.是否有可能获得exp(logit)？也就是说,我可以获得赔率 - 比率吗？
在stargazer文档中,下面提到了"Coef" - 参数,但我不明白这是否可以启用exp(logits).
Coef:将替换每个模型的默认系数值的数值向量列表.元素名称将用于将系数与各个协变量匹配,因此应匹配协变量名称.NULL向量表示,对于给定模型,应使用默认的系数集.相比之下,NA矢量意味着所有模型的系数都应该留空.
推荐指数
解决办法
查看次数
传播重复的标识符(使用tidyverse和%>%)
我的数据如下:
我想让它看起来像这样:
我想使用%>% - chaining在tidyverse中执行此操作.
df <-
structure(list(id = c(2L, 2L, 4L, 5L, 5L, 5L, 5L), start_end = structure(c(2L,
1L, 2L, 2L, 1L, 2L, 1L), .Label = c("end", "start"), class = "factor"),
date = structure(c(6L, 7L, 3L, 8L, 9L, 10L, 11L), .Label = c("1979-01-03",
"1979-06-21", "1979-07-18", "1989-09-12", "1991-01-04", "1994-05-01",
"1996-11-04", "2005-02-01", "2009-09-17", "2010-10-01", "2012-10-06"
), class = "factor")), .Names = c("id", "start_end", "date"
), row.names = c(3L, 4L, 7L, 8L, 9L, 10L, 11L), class = "data.frame")
我尝试过的:
data.table::dcast( df, formula …推荐指数
解决办法
查看次数
如何将[i]的每个元素的j = 1加到(i-1)(从文章中键入公式)
我想把这个公式输入R:
该公式采用以下输入:
- M:每年死亡人数(全因死亡率);
- D:每年癌症死亡人数(癌症死亡率);
- R:每年登记的癌症病例数;
- N:年中人口的规模.
- w:每个年龄间隔的宽度,例如.[0-5]是5年宽,最后的间隔是85年以上,因此无限宽.
所有上述输入矢量18个元素长,因为它们指的是18个年龄间隔.前17个年龄间隔为5年,最后一个间隔(85年以上)无限宽.
该公式估计了Sasieni等人2011年提出的终身癌症风险 http://www.nature.com/bjc/journal/v105/n3/full/bjc2011250a.html
它是 
我不知道如何输入.
下面我试着在之前和之后实现等式的部分 
.
# Input data:
M <- c(140L, 12L, 12L, 59L, 94L, 101L, 117L, 213L, 368L, 607L, 1025L,
1488L, 2255L, 2787L, 3257L, 3715L, 4231L, 6281L)
R <- c(42L, 22L, 28L, 54L, 77L, 108L, 169L, 227L, 293L, 531L, 863L,
1464L, 2591L, 3334L, 3045L, 2605L, 1890L, 1261L)
D <- c(2L, 1L, 2L, 6L, 4L, 7L, 15L, 26L, 67L, 120L, 304L, 497L, 883L,
1158L, 1321L, 1318L, 1177L, 1065L)
N <- c(167323L, …推荐指数
解决办法
查看次数
对按因子分割的数据帧中的许多列应用t检验
我有一个数据框,其中一个因子列有两个级别,还有许多数字列.我想通过因子列拆分数据帧并对colunm对进行t检验.
使用示例数据集Puromycin我希望结果看起来像这样:
Variable Treated Untreated p-value Test-statistic CI of difference****
Conc 0.3450 0.2763 XXX T XX - XX
Rate 141.58 110.7272 xxx T XX - XX
我想我正在寻找一个使用PLYR的解决方案,可以输出上面的数据帧.
(嘌呤霉素只包含两个数值变量,但我正在寻找的解决方案适用于具有许多数字变量的数据帧)
更新 - 我会尽力澄清我的意思.
我想从看起来像这样的数据:
Grouping variable var1 var2 var3 var4 var5
1 3 5 7 3 7
1 3 7 5 9 6
1 5 2 6 7 6
1 9 5 7 0 8
1 2 4 5 7 8
1 2 3 1 6 4
2 4 2 7 6 …推荐指数
解决办法
查看次数
适合Knitr-markdown输出的CSS样式的资源？
我正在寻找一个资源,我可以下载适合Rstudio/knitr markdown输出的CSS样式？
默认CSS样式的默认外观很好,但我想找到一种CSS样式,其中内容位于屏幕中间.
这样的事情(忽略内容,颜色,侧边栏等):http:
//www.barackobama.com/news/不喜欢这个(类似于默认值):http:
//stat.ethz.ch/R-manual/R-patched/library/stats/html/Normal.html
我真的不懂CSS,所以我不能自己做.我试图将默认CSS样式中的边距从0px更改为200 px:
body, td {
font-family: sans-serif;
background-color: white;
font-size: 16px;
margin: 200px;
}
这个"解决方案"的问题在于它仅在浏览器窗口最大化时起作用,并且从浏览器打印的pdf也太窄.
编辑:这很好:https: //gist.github.com/andyferra/2554919
edit2:Rstudio的预览版(RStudio 0.98.932 - Windows XP/Vista/7/8)有一个很好的默认CSS.在这里获取:http://www.rstudio.com/products/rstudio/download/preview/
edit3:Rstudio的最新版本现在包括一些非常好的CSS样式可供选择:) http://www.rstudio.com/products/rstudio/download/
推荐指数
解决办法
查看次数