小编Ric*_*ton的帖子

R的基本图形系统中的几个函数,包括rect()和polygon(),通过它们angle=和density=参数支持交叉影线:

x = c(0, 0.5, 1, 0.5)
y = c(0.5, 1, 0.5, 0)
par(mar=c(0,0,0,0))
plot.new()
polygon(x, y, angle=45, density=10)

如何将类似的交叉影线应用于由网格图形系统的grid.polygon()函数绘制的多边形:

library(grid)
grid.newpage()
grid.polygon(x,y)

我看了说明文档中?grid.polygon和?gpar,并通过保罗具有Murrel的书在R图形有脱脂和迄今拿出空.我错过了一些明显的东西吗 如果没有,是否有一些简单的黑客可以使这成为可能？

我有一个带有标签的列表可以播放一些mp3文件.使用jQuery绑定'click'事件时它工作正常:

$oo.data({'__mp3play':true,'wapiHandle':h+0,'wapiIndex':o.ajaxPlayList[h].length})
           .bind( 'click', function()
            { var wh = $j(this).data('wapiHandle');
              if( typeof o.regObjects[wh] == 'object' && o.regObjects[wh].play(this.href))
               { return false; }
            });

单击鼠标左键时:当我的flash插件加载时,它会禁用默认处理,否则将正常打开.

但是:当我使用鼠标滚动按钮并单击它时,点击事件不会触发,链接正常打开.

我曾试图使用mousedown或mouseup事件,但没有帮助,链接总是正常打开,音乐开始播放的副作用也与flash播放器一起播放.

也preventDefault()根本不起作用.

有人可以告诉我如何检测鼠标中键单击(滚动按钮单击)？

谢谢您的意见.

PS:我已经尝试过关于本网站上"中间按钮"的其他解决方案.

在所有类型的浏览器中测试具有相同的结果.

编辑:这也不起作用,使用鼠标中键时链接将正常打开.使用鼠标左键时,没有任何反应.

$oo.bind( 'mousedown click mouseup', function(e)
{ e.preventDefault(); e.stopPropagation(); return false; });

我的目标是在给定开始,结束和增量(15分钟,1小时,1天)的情况下创建POSIXct时间戳的向量.我希望我可以使用seq它,但我在数字和POSIXct表示之间转换时遇到问题:

now <- Sys.time()
now
# [1] "2012-01-19 10:30:39 CET"
as.POSIXct(as.double(now), origin="1970-01-01", tz="CET")
# [1] "2012-01-19 09:30:39 CET"
as.POSIXct(as.double(now), origin=as.POSIXct("1970-01-01", tz="CET"), tz="CET")
# [1] "2012-01-19 09:30:39 CET"

转换期间会丢失一小时.我究竟做错了什么？

我试图用两个表示形状和颜色的图例来制作地图(下面的例子中为"Type"和"Org"),并且有图例插图.我可以放置传说,但我希望它们左对齐,以便它们的左边缘对齐.除了相互集中之外,我无法做出任何其他事情:

require(ggplot2)
require(ggmap)
require(grid)
require(mapproj)

data <- data.frame(Org=rep(c("ABCDEFG","HIJKLMNOP","QRSTUVWX"),4)
                   , Type=rep(c("Y","Z"),6), Lat=runif(12,48,54.5)
                   , Long=runif(12,-133.5,-122.5))

osmMap <- get_map(location=c(-134,47.5,-122,55), source = 'osm')

points <- geom_jitter(data=data, aes(Long, Lat, shape=Type
                                     , colour=Org))

legend <- theme(legend.justification=c(0,0), legend.position=c(0,0)
                , legend.margin=unit(0,"lines"), legend.box="vertical"
                , legend.key.size=unit(1,"lines"), legend.text.align=0
                , legend.title.align=0)

ggmap(osmMap) + points + legend

有时,使用向图像添加灰色半透明层然后将键孔切割到该层以突出显示下面图像的某个部分的技术是有帮助的.以下是来自youtube vide的示例:

我有时使用绘图,但使用Inkscape添加半透明层,然后使用橡皮擦在该层中切出一个洞.这(a)看起来不够专业(b)需要额外的时间和单独的程序和(c)可能的质量损失.

我想在R中做.我问的是ggplot2,因为这是我选择的工具,但我认为任何网格答案都会很好(我知道基础可能有一个非常不同的方法).

所以这是一个MWE,我添加了一个geom_rect显示我们想要切割锁孔/窗口的位置:

ggplot(mtcars, aes(mpg, wt)) + 
    geom_point(size=3) +    
    geom_rect(mapping=aes(xmin=20, xmax=25, 
        ymin=3, ymax=3.3), color="black", alpha=.01)

我如何使用R来制作看起来像这样的图:

我已经看到,一些功能调用C代码被描述为primitive,internal,builtin,或special.这些功能是什么？

我有大量的小块地块需要放在一个更大的地块画布上,并将小块地块安排进去并用线条连接起来.一个小例子如下所示:

A到L是独立的图.给出了他们的位置的坐标.

绘图网格坐标:PlotgridX和plotgridY可以决定小图需要居中的时间

    plotcord <- data.frame (
plotname = c("A", "B", "C", "D",    "E",    "F",   "G", "H", "I", "J", "K", "L"),
plotgridX = c( 1.5, 2,   5,   5.5,   1.75,  5.25,  8   , 1 ,  2,   3.5,  6,  7.5),
 plotgridY = c( 3,  3,    3,    3,     2 ,    2,    2,   2  , 1,   1,   1,   1))


   plotname plotgridX plotgridY
1         A      1.50         3
2         B      2.00         3
3         C      5.00         3
4         D      5.50         3
5         E      1.75         2
6         F …

我有一个包含NULL元素的嵌套列表,我想用其他东西替换它们.例如:

l <- list(
  NULL,
  1,
  list(
    2,
    NULL,
    list(
      3,
      NULL
    )
  )
)

我想用NA替换NULL元素.这样做的自然方法是使用递归循环遍历列表rapply.我试过了:

rapply(l, function(x) NA, classes = "NULL", how = "replace")
rapply(l, function(x) if(is.null(x)) NA else x, how = "replace")

不幸的是,这些方法都不起作用,因为rapply显然忽略了NULL元素.

如何操作NULL嵌套列表中的元素？

我正在寻找创建一个可在Web浏览器中查看的静态仪表板.而且我想创建像Stephen Few在他的书" 信息仪表板设计"中所做的那样的事情.(见底部示例)

1. Ggplot2:不应该是产生下图的任何问题,对吧？
2. 仪表板布局:网格是否合适？或者我应该在html/css中列出一些东西？

如果网格可以很容易地做到这一点,你知道有什么好的资源来学习如何使用它吗？我已经阅读了手册,但我发现它没有太大帮助.我见过LearnR博客的ggplot2销售仪表板(它使用网格),我无法理解网格和布局部分内容.

dasboard示例http://img251.imageshack.us/img251/1029/fewciodashboard800.png

Cyclomatic复杂度测量可以通过函数获取多少个可能的分支.是否有现有的函数/工具来计算R函数？如果没有,建议是最好的方式来写一个.

朝着这个一个廉价的启动将是计数的所有出现次数if,ifelse或者switch你的函数中.要获得真正的答案,您需要了解分支何时开始和结束,这要困难得多.也许一些R解析工具会让我们开始？