Tag: r

如何在R地图中保存Leaflet为png或jpg文件？

我正在使用Leaflet包在R中创build地图。它完美地工作。 我可以导出R中的地图，只需导出，但我需要从R中的脚本导出地图。我的简单代码是： png("test_png.png") (m <- leaflet() %>% addTiles()) dev.off() 它的作品，但是…输出PNG文件是白色的空白。

R：gsub，pattern = vector和replacement = vector

正如标题所述，我试图在gsub中使用“模式”和“replace”向量。 目前，我有一个如下所示的代码： names(x1) <- gsub("2110027599", "Inv1", names(x1)) #x1 is a data frame names(x1) <- gsub("2110025622", "Inv2", names(x1)) names(x1) <- gsub("2110028045", "Inv3", names(x1)) names(x1) <- gsub("2110034716", "Inv4", names(x1)) names(x1) <- gsub("2110069349", "Inv5", names(x1)) names(x1) <- gsub("2110023264", "Inv6", names(x1)) 我希望做的是这样的： a <- c("2110027599","2110025622","2110028045","2110034716", "2110069349", "2110023264") b <- c("Inv1","Inv2","Inv3","Inv4","Inv5","Inv6") names(x1) <- gsub(a,b,names(x1)) 我猜是有一个应用函数可以做到这一点，但我不是很确定哪一个使用！ 编辑：名称（x1）看起来像这样（有更多的列，但我把他们离开）： > names(x1) [1] "2110023264A.Ms.Amp" […]

有条件地更改面板背景与facet_grid？

我正在使用ggplot2中的“提示”数据集。 如果我做 sp = ggplot(tips,aes(x=total_bill, y = tip/total_bill)) + geom_point(shape=1) + facet_grid(sex ~ day) 情节出来很好。 但是我现在想要在“星期五”下改变面板背景。 有没有办法做到这一点？ 更好的是，我可以通过传递参数有条件地改变颜色吗？ 例如，如果超过3点低于0.1，那么将面板背景（仅适用于该面板）更改为某种颜色，而其他所有其他颜色保持为默认浅灰色？

你如何改变在R的图书馆位置？

由于新的R 2.11版本，我想在这里实施德克的build议。 所以，我问 – 我怎样才能（永久）改变R的图书馆path？ （最好的解决scheme是从R内运行的解决scheme）

如何使用UTF-8编码保存源（）.R文件？

以下，直接复制并粘贴到R工作正常： > character_test <- function() print("R同时也被称为GNU S是一个强烈的function性语言和环境，探索统计数据集，使许多从自定义数据graphics显示…") > character_test() [1] "R同时也被称为GNU S是一个强烈的function性语言和环境,探索统计数据集,使许多从自定义数据graphics显示…" 但是，如果我创build了一个名为character_test.R的文件，其中包含EXACT SAME代码， 请将其保存为UTF-8编码 （以保留特殊的中文字符），然后当我在R中源代码时，出现以下错误： > source(file="C:\\Users\\Tony\\Desktop\\character_test.R", encoding = "UTF-8") Error in source(file = "C:\\Users\\Tony\\Desktop\\character_test.R", encoding = "utf-8") : C:\Users\Tony\Desktop\character_test.R:3:0: unexpected end of input 1: character.test <- function() print("R 2: ^ In addition: Warning message: In source(file = "C:\\Users\\Tony\\Desktop\\character_test.R", encoding = "UTF-8") : invalid […]

ggplot2带expression式的双行标签

我想用一个expression()语句在两行中写一个轴标签。 然而， plotmath和expression不允许这样做（例如，下标文本出现在最右侧）。 我发现这个讨论大约在2005年的一个类似的问题，但他们提供的工作并没有转化为我在ggplot2中的应用。 最近的一个问题涉及多行expression式语句的不同排列，但是这里所提供的解决方法并不适用于此。 例： p <- ggplot(mtcars,aes(x=wt,y=mpg))+ geom_point()+ xlab(expression(paste("A long string of text goes here just for the purpose \n of illustrating my point Weight "[reported]))) try(ggsave(plot=p,filename=<some file>,height=4,width=6)) 当我希望它坐在前一个单词的旁边时，会产生一个下标“已报告”被踢出右侧的图像。

在R中将正态曲线叠加到直方图上

我已经设法在网上find如何覆盖正常曲线到直方图R，但我想保留直方图的正常“频率”y轴。 请参阅下面的两个代码段，并注意第二个如何将y轴replace为“密度”。 我怎么能把这个y轴保持为“频率”，就像它在第一个图中一样。 作为奖金：我想在密度曲线上标记SD区域（高达3 SD）。 我该怎么做？ 我尝试了abline ，但是这条线延伸到了图的顶部，看起来很丑。 g = d$mydata hist(g) g = d$mydata m<-mean(g) std<-sqrt(var(g)) hist(g, density=20, breaks=20, prob=TRUE, xlab="x-variable", ylim=c(0, 2), main="normal curve over histogram") curve(dnorm(x, mean=m, sd=std), col="darkblue", lwd=2, add=TRUE, yaxt="n") 看看上面的图片，y轴是“密度”。 我想要得到那个“频率”。

在R中search受密码保护的网站

我试图抓取密码保护的网站在R读取数据。看来，httr和RCurl包是用密码authentication（我也看过XML包）的最佳select。 我正在试图抓取的网站在下面（您需要一个免费帐户才能访问整个页面）： http : //subscribers.footballguys.com/myfbg/myviewprojections.php?projector=2 这里是我的两个尝试（用我的用户名和密码replace“用户名”和我的密码）： #This returns "Status: 200" without the data from the page: library(httr) GET("http://subscribers.footballguys.com/myfbg/myviewprojections.php?projector=2", authenticate("username", "password")) #This returns the non-password protected preview (ie, not the full page): library(XML) library(RCurl) readHTMLTable(getURL("http://subscribers.footballguys.com/myfbg/myviewprojections.php?projector=2", userpwd = "username:password")) 我已经看了其他相关的post（下面的链接），但不知道如何将他们的答案应用到我的案件。 如何使用R从需要cookie的SSL页面下载压缩文件 如何在R（https链接）（使用XML包中的readHTMLTable）对web页面进行webscrape？ 从密码保护网站读取信息 R – RCurl从密码保护的网站刮取数据 http://www.inside-r.org/questions/how-scrape-data-password-protected-https-website-using-r-hold

ggplot传说 – 更改标签，顺序和标题

我正在努力修改我的情节中的传奇。 这是一个可重现的例子： dtt <- structure(list(model = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("ma", "mb", "mc"), class = "factor"), year = c(2005L, 2006L, 2007L, 2008L, 2009L, 2010L, 2005L, 2006L, 2007L, 2008L, 2009L, 2010L, 2005L, 2006L, 2007L, 2008L, 2009L, 2010L), V = c(0.16, […]

如何在ggplot2的绘图区外画线？

我用ggplot2创build了这个图： 外线需要对应于Y刻度（即Text1的行的Y位置应该是100和85）。 唯一的办法，我可以做到这一点，通过在图的右侧绘制一个空白的图，与条形图相同的比例，然后使用注释function来绘制线条。 另一种方法是简单地用grid.lines “手动”绘制线条，但是grid.lines的坐标不会对应于绘图的Y比例。 是否有可能以某种方式使用不同的方法绘制这些线？ 我认为这将不得不与grid.lines 。 我怎么能通过条形图的Y coordindates到grid.lines ？ 以下是用于创build此图的最小代码： library (ggplot2) test= data.frame( group=c(rep(1,6), rep(2,6)), subgroup=c( 1,1,1,2,2,2,1,1,1,2,2,2), category=c( rep(1:3, 4)), count=c( 10,80,10,5,90,5, 10,80,10,5,90,5 ) ) qplot(subgroup, count, data=test, geom="bar", stat="identity", fill =category, facets = .~ group, width=0.9)+ opts(legend.position="none", plot.margin = unit(c(0,9,2,0), "lines")) 我怎样才能在酒吧的右边画线？ 我最近问了一个关于在ggplot2的绘图区域之外绘制文本的问题，解决方法是使用gt$layout和grid.draw 。 在由ggplot2生成的图表下方显示文本 这里可以使用类似的方法吗？ 我的理解是，annotation_custom仅适用于文本，不适用于其他graphics元素。 谢谢