小编Bri*_*ggs的帖子

我正在尝试geom_bar从2个独立的data.frames中叠加2个条形图.

dEQ
   lab perc
1  lmP 55.9
2  lmN 21.8
3   Nt  0.6
4 expG  5.6
5 expD  0.0
6 prbN 11.2
7 prbP  5.0

和

LMD
   lab perc
1  lmP 16.8
2  lmN  8.9
3   Nt  0.0
4 expG  0.0
5 expD  0.0
6 prbN  0.0
7 prbP  0.0

第一个情节是:

p <- ggplot(dEQ, aes(lab, perc)) + 
     xlab(xlabel) + ylab(ylabel) +
     geom_bar(stat="identity", colour="blue", fill="darkblue")  + 
     geom_text(aes(vecX, vecYEQ+1.5, label=vecYlbEQ), data=dEQ, size=8.5)  + 
     theme_bw() +
     opts(axis.text.x = theme_text(size = 20, …

我想在下面的ggplot中调整线型.因此,我在data.frame df中引入另一列来表示线型,但是一旦我将其转换为因子,线型而不是"方法"出现在图例中...(参见试验3).

我怎样才能在传奇中获得"方法"？最后我希望能够

1. 自由选择线型,
2. 自由选择这些线型在图例中出现的顺序,以及
3. 将相应的"方法"显示为图例文本.

以下是我的尝试:

require(ggplot2)
set.seed(1)
df <- data.frame(x=c(1:4, 2:5),
                 method=rep(c("a", "b"), each=4),
                 lt=rep(c(5,3), each=4),
                 value=rep(c(0,1), each=4)+runif(8))

## trial 1:
ggplot(df, aes(x=x, y=value)) + 
   geom_point() + 
   geom_line(aes(group=method, linetype=method)) 
# fine, but not the linetypes I would like to have

## trial 2:
ggplot(df, aes(x=x, y=value)) + 
   geom_point() + 
   geom_line(aes(group=method, linetype=lt)) 
# correct linetypes, but no legend

## trial 3:
ggplot(df, aes(x=x, y=value)) + 
   geom_point() + 
   geom_line(aes(group=method, linetype=as.factor(lt))) 
# legend, but not the correct one (I would like …

我有以下数据集和代码,并且还显示了dput()的输出.我想在y轴上绘制日志(N2012 $ Rate)列,在x轴上绘制位置,并按月垂直分割,然后按气体分割.图表在视觉上有效,但没有为因子分配正确的数据点.我不确定我做错了什么.对不起笨拙的代码,我是R的新手并自学了.

我还希望N2O面板为黄色,N2面板为蓝色.这也没有发生,我不知道为什么.

数据

    Location.Month Gas     Rate Month Location log(N2012$Rate)
1   HighBank July  N2    24.00  July HighBank       3.1780538
2   HighBank July  N2   309.00  July HighBank       5.7333413
3   HighBank July N2O    92.00  July HighBank       4.5217886
4   HighBank July N2O    45.00  July HighBank       3.8066625
5    LowBank July  N2   582.00  July  LowBank       6.3664704
6    LowBank July  N2    27.00  July  LowBank       3.2958369
7    LowBank July N2O   299.00  July  LowBank       5.7004436
8    LowBank July N2O    99.00  July  LowBank       4.5951199
9      Basin July  N2   219.00 …

我可以通过该函数获得所有可用包的列表:

ap <- available.packages()

但是我怎样才能从R中获得这些包的描述,所以我可以有data.frame两个列:包和描述？

我对R很新,但我已经做了很多搜索,但没有找到我的问题的答案.

我有一个8位重复的向量:

allNum <- c(rep(1, 70), rep(2, 70), rep(3, 35), rep(4, 35), 
            rep(5, 70), rep(6, 70), rep(7, 35), rep(8, 35))

现在我想对此进行排列(大概使用sample(allNum, 420, replace=FALSE)),但我不想要任何连续的相同数字 - 例如:1 2 2 8

有一个简单的方法吗？

我试图在带有刻面的Boxplot图像上有自由比例.

使用此示例数据集,如果我尝试这样做:

ggplot(data=mpg) +
geom_boxplot(aes(x=cty, y=model))+
facet_grid(manufacturer ~ drv, scales = "free", space = "free")

绘制不正确的箱图http://dl.dropbox.com/u/9788680/plot1.png

在这里,自由尺度完全按照我的意愿实现,y轴的不同尺度取决于水平面规则的可用因子的数量.然而,箱图未被正确描绘(即,实线而不是箱线图).在搜索解决方案时,我发现我应该使用coord_flip()以便正确描绘箱形图,即

ggplot(data=mpg) +
geom_boxplot(aes(x=model,y=cty))+
facet_grid(manufacturer ~ drv, scales = "free", space = "free")+
coord_flip()

绘制正确的boxplot,但没有缩放http://dl.dropbox.com/u/9788680/plot2.png

在上图中,箱图现在是正确的.但是,去除了因子(因此在y轴上)的自由标度.现在,对于每个水平构面线,现在包括数据集中的所有可用因子,而不是仅包含每个构面可用的因子(如图1所示).

我想知道如何通过两个轴上的自由刻度获得正确的刻面,正确描绘了箱线图.

如果有人能指出我正确的方向,我将不胜感激.

谢谢.

我是第一次建造一个R包,我遇到了一些麻烦.我正在进行R CMD检查,并收到以下错误:

get.AlignedPositions: no visible global function definition for 'subject'

我不确定是什么原因造成的.我的代码中甚至没有"主题"变量.代码相当冗长,所以我宁愿不粘贴所有代码,除非有人在评论中提问.我应该寻找具体的东西吗？我唯一能想到的就是我有一条这样的线:

alignment <-pairwiseAlignment(pattern = canonical.protein, subject=protein.extracted, patternQuality=patternQuality,
                            subjectQuality=subjectQuality,type = type, substitutionMatrix= substitutionMatrix,
                            fuzzyMatrix=fuzzyMatrix,gapOpening=gapOpening,gapExtension=gapExtension,
                            scoreOnly=scoreOnly)

但是主题是由pairwiseAlignmentBiostrings包中的函数定义的.谢谢您的帮助!

我正在使用R来创建我正在研究的行业中的战略群体的竞争地图.出口数量沿x轴,销售额是y轴以及泡沫的大小.使用的代码:

qplot(data = supermarket, x = outlets, y = sales, size = sales, color = retailer)   

但是,我需要增加气泡的整体尺寸,因为目前还不清楚.请参阅下面的示例.

我需要的是让气泡保持其相对于销售的规模,但总体上变得更大,以提高可见度.

> dput(head(t))
structure(list(Team = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "Union", class = "factor"), 
    Date = structure(c(1L, 1L, 1L, 2L, 2L, 2L), .Label = c("2012-01-06", 
    "2012-02-06", "2012-03-06", "2012-04-06", "2012-05-06", "2012-07-06", 
    "2012-09-06", "2012-10-06", "2012-11-06", "2012-12-06"), class = "factor"), 
    STime = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = "07:03", class = "factor"), 
    ETime = structure(c(6L, 7L, 8L, 5L, 5L, 1L), .Label = c("01:13", 
    "03:13", "06:13", "09:13", "10:13", "11:13", "12:13", "13:13", 
    "15:13", "16:13", "18:13"), class = "factor")), .Names = c("Team", …

我实现了以下函数来绘制ggplot使用的不同颜色.它们还可以绘制图例中的十六进制颜色值.但是,不知何故,颜色和十六进制值的分配是错误的,我不明白为什么.我在将十六进制颜色添加到数据框之前对其进行了排序,data然后在ggplot2函数中使用.我认为这样可以解决问题,但事实并非如此.我还创建了col包含十六进制的矢量以及我实际想要作为图例的rgb颜色值,但我也在努力使这个工作

ggplot_colors <- function(n, size=8, alpha=1) {
    library(grDevices)
    hues = seq(15, 375, length=n+1)
    cols_hex <- sort(hcl(h=hues, l=65, c=100)[1:n])
    cols_rgb <- col2rgb(cols_hex)
    cols_rgb <- apply(cols_rgb, 2, function(x){paste(x, collapse=",")})
    cols <- paste(cols_hex, cols_rgb, sep="; ")
    data <- data.frame(x=1:length(cols), 
                       y=1:length(cols), 
                       cols_hex=cols_hex, 
                       cols_rgb=cols_rgb, 
                       cols=cols)
    ggplot(NULL) +
      geom_point(data=data, 
                 aes(x=x, y=y, colour=cols_hex), size=size, alpha=alpha)
}

ggplot_colors(15, 8, 1)

作为RGB值(248,118,109)和十六进制值F8766D的红色在图例中分配了十六进制值00B0F6