小编hrb*_*str的帖子

是否有可能改变单个分面图的格式？例如,使用下面的示例代码,可以更改cyl = 8图表的标题或背景颜色吗？

library(ggplot2)
ggplot(mtcars, aes(x=gear)) + 
  geom_bar(aes(y=gear), stat="identity", position="dodge") +
  facet_wrap(~cyl)

我有一个全局~/.Rprofile文件和另一个.Rprofile位于我项目当前工作目录中的文件,它们都具有以下内容:

.First() <- function() {
options(rstudio.markdownToHTML = 
  function(inputFile, outputFile) {      
    system(paste("pandoc", shQuote(inputFile), "-s --webtex -o", shQuote(outputFile)))
  }
)  
}

不幸的是,当我打开RStudio应用程序时,它们似乎都没有工作.我正在尝试做的目的是使"Knit HTML"按钮渲染Markdown文件,该文件具有内联LaTeX,使用webtex作为LaTeX渲染器通过Pandoc进行处理.

有谁知道我如何检查我的.Rprofile文件是否在启动时加载？

谢谢你的帮助!

POST ANSWER EDIT(在Josh的回答之后): 为了清楚起见,我的工作项目的.Rprofile文件(有效)现在如下所示:

options(rstudio.markdownHTML =
  function(inputFile, outputFile) {
    system(paste("pandoc", shQuote(inputFie), "-s --webtex -o", shQuote(outputFile)))
  }
)
 \\ you will need to end with a blank carriage return underneath

我有一个简单的数据帧,by_day,我想绘制出来:

 X weekday         variable value
0       0 Number_of_tweets  5820
1       1 Number_of_tweets  6965
2       2 Number_of_tweets  7415
3       3 Number_of_tweets  6800
4       4 Number_of_tweets  5819
5       5 Number_of_tweets  1753
6       6 Number_of_tweets  1137

我可以毫无问题地获得基本情节.

daily_plot <- ggplot(data=by_day, aes(x=by_day$weekday, y=by_day$value)) + 
  geom_bar(stat = "identity") 

当我尝试修改值标签时出现问题.如果我这样做,我最终会在x轴的右侧增加额外的空间:

daily_plot + 
  scale_x_discrete("Day of the Week", breaks = c("0","1","2","3","4","5","6"), labels=c("Mon","Tues","Wed","Th","Fri","Sat","Sun"))

如果我这样做,那么问题是条形和新标签是偏移的

daily_plot + 
  scale_x_discrete("Day of the Week", breaks = c("0","1","2","3","4","5","6"),    labels=c("Mon","Tues","Wed","Th","Fri","Sat","Sun"), limits=c("0","1","2","3","4","5","6")) + 
  theme(axis.title.x = element_text(vjust=-0.5), axis.title.y=element_text(vjust=0.1)) 

我花了一些时间浏览ggplot2文档以及StackOverflow,但找不到相同的问题.任何帮助,将不胜感激.

我不知道如何Figure 1:从生成的pdf文档中删除如下所示:(使用rmarkdown; knitr; pandoc).我有一个.Rmd file > .md > .pdf

我在R控制台中生成pdf:

system(paste("pandoc -V geometry:margin=0.7in -o", path, "/file_name", ".pdf ", "file_Rmd", ".md" ,sep=""))

简单的例子:

```{r}
plot(1:20)
```

输出:

这篇文章http://www.ajnr.org/content/30/7/1402.full包含四个指向html-tables的链接,我想用rvest来搜索.

借助css选择器:

"#T1 a" 

可以像这样到达第一个表:

library("rvest")
html_session("http://www.ajnr.org/content/30/7/1402.full") %>%
follow_link(css="#T1 a") %>%
html_table() %>%
View()

css选择器:

".table-inline li:nth-child(1) a"

可以选择包含链接到四个表的标签的所有四个html节点:

library("rvest")
html("http://www.ajnr.org/content/30/7/1402.full") %>%
html_nodes(css=".table-inline li:nth-child(1) a")

如何循环遍历此列表并一次性检索所有四个表？什么是最好的方法？

Travis-CI 对Ubuntu 的官方R项目构建支持使用(在本问题时)gcc版本4.6.

CRAN使用gcc4.9,一些在CRAN上构建良好的软件包不会在Travis上构建gcc4.6.

如何更改gccR项目/包构建的默认编译器以更接近地镜像CRAN构建？

我想合并一个SpatialPolygonsDataFrame:

# From https://www.census.gov/geo/maps-data/data/cbf/cbf_state.html
states <- readOGR(dsn = "./cb_2014_us_state_20m.shp",
                  layer = "cb_2014_us_state_20m", verbose = FALSE)

使用普通数据框:

my_counts <- data.frame(
  State = c(
    "CA", "TX", "IL", "FL", "NY", "OH",
    "NJ", "GA", "MI", "PA", "MA", "CO", "AZ", "NC", "VA", "WA", "IN",
    "MD", "MN", "WI", "MO", "TN", "IA", "KY", "LA", "SC", "CT", "AL",
    "KS", "OR", "OK", "AR", "NV", "UT", "NE", "ID", "MS", "DC", "NM",
    "NH", "ME", "AK", "RI", "MT", "HI", "WV", "SD", "ND", "DE", "VT",
    "WY", "PR", "GU", "VI", "MP", "AS", …

有很多从R向C++发送整数的例子,但我找不到发送字符串的例子.

我想做的很简单:

SEXP convolve(SEXP filename){
  pfIn = fopen(filename, "r");
}

这给了我以下编译器错误:

loadFile.cpp:50:错误:无法将参数
'1'的'SEXPREC*'转换为'const char*'为'FILE*fopen(const char*,const char*)'

所以我需要将文件名转换为const char*？我使用CHAR吗？

是否可以编写一个函数isFunc :: a -> Bool来确定任意值是否是一个函数(任何类型)

foo :: Int -> Int
bar :: Char -> Char -> Char    

> isFunc foo
True
> isFunc bar
True
> isFunc 3
False
> isFunc 'a'
False

我正在使用Data.Dynamic,所以我无法提前确定类型.

我是R的新手,我正在玩一个项目来绘制2010年到2020年阿拉巴马州预计的人口增长情况.这是我的代码:

dat <- read.table("C:/Users/rasmus/Documents/countyinfo.txt", sep="\t", header=TRUE)

library(ggplot2)
library(maps)
library(ggmap)

mdat <- map_data('county')
str(mdat)
al1 = get_map(location = c(lon = -86.304474, lat = 32.362563), 
              zoom = 7, maptype = 'roadmap')
al1MAP = ggmap(al1) + 
         geom_point(data=dat,inherit.aes = FALSE, 
                    aes(y=Lat, x=Lon, map_id=County, size=Growth), col="red") + 
         borders("state", colour="red", alpha=0.8) + 
         borders("county", colour="blue", alpha=0.5)
al1MAP

现在,我有两个问题.

1)国家边界似乎做了奇怪的事情.这是关闭县覆盖的屏幕截图:

2)鉴于这只是关于阿拉巴马州,我想关闭国界以外的边界,但我不知道该怎么做.我的猜测是试验xlim和ylim,但我不知道如何限制它们到阿拉巴马边界多边形.