小编Tom*_*ens的帖子

嗨,我需要一些帮助绘制一个简单的三角形

library(ggplot2)
library(data.table)

dt.triangle <- data.table(group = c(1,1,1), polygon.x = c(2,4,4), polygon.y = c(1,1,3))

p <- ggplot()
p <- p + geom_polygon(
            data = dt.triangle
            ,aes(
                x=polygon.x
                ,y=polygon.y
                ,group=group
            )
        )
p

我对hypotneuse的绘制/渲染并不满意,不知怎的,我想绘制一条不显示这种"锯齿"的线条.

我错过了什么吗？

出于某种原因,我想将ggplot2与geom_polygon结合使用.

任何帮助表示赞赏

汤姆

此代码生成一个包含3个多边形的图表...

我正在创建一个显示3个多边形的图表,如果有更好的方法来绘制多边形,我对此并不感兴趣(实际上这些多边形代表事件并且这些事件有持续时间).

首先,我感兴趣的是使用渐变填充每个多边形的可能性.

# library("ggplot2")
# library(data.table)

## some vectors
event.day <- c("A", "A", "B", "B")
event.time <- c(1, 2, 1, 2)
event.duration <- c(1,2,3,1)
sys <- c(100, 50, 50, 100)

## the data data.frame
df.event <- data.frame(event.day, event.time,event.duration,sys)
# ordering the data.frame
df.event <- df.event[with(df.event, order(event.day, event.time)), ]
# sys values of the next event
df.event$sys.end <- c(df.event$sys[-1], NA)
df.event$sys.min <- min(df.event$sys)
df.event$sys.minday <- ave(df.event$sys, list(event.day), FUN=function(x) {min(x)})
df.event$sys.max <- max(df.event$sys)
df.event$sys.maxday <- ave(df.event$sys, list(event.day), FUN=function(x) {max(x)})

# count …

我想创建一个 data.table 并且我想使用动态列名，顺便说一下，这不是将列添加到现有的 data.table。

这是一个例子

outer.name <- "outer.column"
outer.members <- c("I", "II")
outer.members.cnt <- length(outer.members)
dt.outerinner <- data.table(outer = outer.members)
setnames(dt.outerinner, outer.name)

现在我想知道，是否可以将变量“outer.name”直接传递给data.table(... = outer.members)并省略setnames(...)？

任何提示表示赞赏

汤姆

我有以下内容

library(data.table)

anid <- c(1,2,3,4)
agroup <- c("m", "m", "f", "f")
anothergroup <- c("a","c", NA, "c")
avalue <- c(11,  6, 17, 3)
mygoal <- c("agroup:m_anothergroup:a","agroup:m_anothergroup:c","agroup:f_anothergroup:NA","agroup:f_anothergroup:c")

不幸的是,我在我的例子中错过了这一行

dt <- data.table(anid, agroup, anothergroup, avalue)

基本上我想用函数创建mygoal列的值,但不幸的是我卡住了.我想用类似的东西来创建mygoal列

dt[, mygoal:= lapply(...)]

进入函数的列数可能会有所不同,但我知道它们,但必须能够将函数列作为字符向量提供.在上面的例子中,列"agroup"和"anothergroup"用于为"mygoal"列创建值.

再一次,任何暗示都值得赞赏

汤姆

嗯，也许是温度的原因，或者我再次看不到明显的...

这是我的代码：

library(ggplot2)

p <- ggplot()
p <- p + geom_point(aes(x = 1, y=1,bg = "I", group = "B"),pch = 21, size = 20, color=NA)
p <- p + geom_point(aes(x = 1, y=1.125,bg = "I", group = "B" ),pch = 22, size = 20, color=NA)
p <- p + geom_point(aes(x = 0.75, y=1.125,bg = "II", group = "A" ),pch = 22, size = 20, color=NA)
p <- p + geom_point(aes(x = 0.85, y=1.125,bg = "III", group = "A" ),pch = …