Tag: r

如何在R中绘制函数曲线: 绘制一个简单的曲线的function是什么样的 eq = function(x){x*x} 在R？这听起来很明显的问题，但我只能在stackoverflow上find这些相关的问题，但它们都更具体在R中绘制线function 在R中的数据点之上绘制函数我怎样才能绘制复杂的数字R函数？如何绘制一个简单的分段线性函数？在同一个绘图中绘制多个函数曲线我希望我没有写一个重复的问题。

连接path的函数？: 有一个现有的函数来连接path吗？我知道这不是很难实现，但仍然…除了照顾尾随/ （或\ ）我需要照顾适当的操作系统path格式检测（即我们是否写C:\dir\file或/dir/file ）。正如我所说，我相信我知道如何执行它; 问题是：我应该这样做吗？这个function已经存在于现有的R包中吗？

用par（mfrow）编辑的graphics面板的常见主标题: 我有一个与par(mfrow=c(2,2))一起绘制的4个地块的汇编。我想为上述2个地块绘制一个共同的标题，并且在左右两个地块之间居中的下面两个图板共同标题。这可能吗？

在R中，如何通过一个降序和一个升序来sortingdataframe？: 我有一个数据框，看起来像这样： P1 P2 P3 T1 T2 T3 I1 I2 1 2 3 5 52 43 61 6 "b" 2 6 4 3 72 NA 59 1 "a" 3 1 5 6 55 48 60 6 "f" 4 2 4 4 65 64 58 2 "b" 我想按降序对I1进行sorting，对I1中I2值相同的行进行升序排列，得到行数为1 3 4 2 。但是order函数似乎只有一个decreasing参数，对于所有的sorting向量一次是TRUE或FALSE 。我如何得到我的sorting正确的？

在R中绘制3D数据: 我有一个3D数据集： data = data.frame( x = rep( c(0.1, 0.2, 0.3, 0.4, 0.5), each=5), y = rep( c(1, 2, 3, 4, 5), 5) ) data$z = runif( 25, min = (data$x*data$y – 0.1 * (data$x*data$y)), max = (data$x*data$y + 0.1 * (data$x*data$y)) ) data str(data) 我想绘制它，但R alwyas的内置函数给出了错误预期增加“x”和“y”值 # ### 3D Plots ###################################################### # built-in function […]

在R中创build一个string连接运算符: 我想知道如何在R中编写一个string连接运算符，比如|| SAS，+ Java / C＃或Visual Basic中。最简单的方法就是使用％来创build一个特殊的运算符 `%+%` <- function(a, b) paste(a, b, sep="") 但是这会导致代码中很多丑陋的% 。我注意到，在Ops组中定义了+ ，你可以为这个组编写S4方法，所以也许这样的东西就是要走的路。不过，我完全没有使用S4语言的经验。我如何修改上面的函数来使用S4？

Adobe Illustrator中的ggplot2 pdf导入缺less字体AdobePiStd: 我创build了几个简单的ggplot2图，并使用以下命令将它们保存为PDF文件： p <- ggplot(plotobject, aes(x=Pos, y=Pval),res=300) ggsave(plot=p,height=6,width=6,dpi=200, filename="~/example.pdf") 如果我现在在Adobe Illustrator中打开这个example.pdf，我得到以下错误：字体AdobePiStd丢失。受影响的文本将使用替代字体显示。有没有办法在ggplot2指定一个字体（我认为这是点/点），Adobe将理解或以其他方式获得这种字体在Adobe工作？ /编辑只是为了澄清，文本/标签/标题都很好，它是字体/ edit2缺less的点我通过在ggsave中使用EPS输出得到了一个工作解决scheme，但仍然希望find一种方法也可以直接在AI中打开/导入PDF格式的ggplot2图

如何从R向量中的每个元素中删除最后n个字符: 我对R非常陌生，我在网上看了一遍，也找不到一个简单的例子来说明如何从一个向量的每个元素（数组？）中删除最后n个字符。我来自Java背景，所以我想要做的是遍历a$data每个元素，并从每个元素中删除最后3个字符。你将如何去呢？

调用系统后makePSOCKcluster挂在win x64上: 在Windows上，R x64上的parallel包中makePSOCKcluster难以debugging的问题。它不会在Windows上的R i386上，也不在任何OSX或Linux上发生。不幸的是，这种情况并不总是一致地发生，只是偶尔和非常随机的。会发生什么是makePSOCKcluster函数超时并冻结R会话，但是只有在会话的前面执行一些（任意） system()调用时才会发生。下面的video和脚本更清楚地说明了这个问题。有些东西我尝试没有成功：禁用防病毒/防火墙。等待调用system和makePSOCKcluser之间的几秒钟。使用不同的系统调用。我将如何进一步缩小这个范围？这里video和video中使用的脚本是： cmd_exists <- function(command){ iswin <- identical(.Platform$OS.type, "windows"); if(iswin){ test <- suppressWarnings(try(system(command, intern=TRUE, ignore.stdout=TRUE, ignore.stderr=TRUE, show.output.on.console=FALSE), silent=TRUE)); } else { test <- suppressWarnings(try(system(command, intern=TRUE, ignore.stdout=TRUE, ignore.stderr=TRUE), silent=TRUE)); } !is(test, "try-error") } options(hasgit = cmd_exists("git –version")); options(haspandoc = cmd_exists("pandoc –version")); options(hastex = cmd_exists("texi2dvi […]

ggplotGrob的逆？: 我有一个函数，操纵ggplot对象，通过将其转换为grob，然后修改图层。我想这个函数返回一个ggplot对象而不是grob。有没有一个简单的方法来将grob转换回gg？关于ggplotGrob 的文档非常稀less。简单的例子： P <- ggplot(iris) + geom_bar(aes(x=Species, y=Petal.Width), stat="identity") G <- ggplotGrob(P) … some manipulation to G … ## DESIRED: P2 <- inverse_of_ggplotGrob(G) such that, we can continue to use basic ggplot syntax, ie `P2 + ylab ("The Width of the Petal")` 更新：为了回答评论中的问题，这里的动机是基于每个方面中的标签名称的值以编程方式修改方面标签的颜色。下面的function很好地工作（根据上一个问题的洗礼input）。我想从colorByGroup的返回值是一个ggplot对象，而不是简单的一个grob。这是有兴趣的代码 get_grob_strips <- function(G, strips=grep(pattern="strip.*", […]