小编Mic*_*eet的帖子

我想做一个黑色轮廓的条形图,条形图内有百分比.这可能来自qplot吗？我得到了百分比,但它们与特定的条形图不对齐.

包:ggplot2,重塑

x <- data.frame(filename = c("file1", "file2", "file3", "file4"),
                    low = c(-.05,.06,.07,-.14),
                    hi = c(.87,.98,.56,.79))
x$tot <- x$hi + x$low

x <- melt(x, id = 'filename')

bar <- qplot(x = factor(filename), 
             y = value*100,
             fill = factor(variable),
             data = x,
             geom = 'bar',
             position = 'dodge') + coord_flip()
bar <- bar + scale_fill_manual(name = '',
                               labels = c('low',
                                          'Hi',
                                          "Tot"),
                               values = c('#40E0D0',
                                          '#FF6347',
                                          "#C7C7C7")) 
bar <- bar + geom_text(aes(label = value*100))+geom_bar(colour = 'black')
bar <- bar + opts(panel.background …

我有每小时的天气数据.我从这里看到了函数示例:http://casoilresource.lawr.ucdavis.edu/drupal/node/991

我正在改变代码来计算机场数据,它具有不同的URL类型.机场天气数据的另一个问题是时间数据以12小时格式保存.以下是数据示例:

14  10:43 AM
15  10:54 AM
16  11:54 AM
17  12:07 PM
18  12:15 PM
19  12:54 PM
20  1:54 PM
21  2:54 PM

这就是我的尝试:(我看到只使用'PM'并不够小心,因为如果他们通过这个alg,下午12点到下午1点之间的任何时间都会关闭)

date<-Sys.Date()


data$TimeEST<-strsplit(data$TimeEST, ' ')
for (x in 1:35){
    if('AM' %in% data$TimeEST[[x]]){
        gsub('AM','',data$TimeEST[[x]])
        data$TimeEST[[x]]<-str_trim(data$TimeEST[[x]])
        data$TimeEST[[x]]<-str_c(date,' ',data$TimeEST[x],':',data$TimeEST[2])
    }
    else if('PM' %in% data$TimeEST[[x]]){
        data$TimeEST[[x]]<-gsub('PM', '',data$TimeEST[[x]])
        data$TimeEST[[x]]<-strsplit(data$TimeEST[[x]], ':')
        data$TimeEST[[x]][[1]][1]<-as.integer(data$TimeEST[[x]][[1]][1])+12
        data$TimeEST[[x]]<-str_trim(data$TimeEST[[x]][[1]])
        data$TimeEST[[x]]<-str_c(date, " ", data$TimeEST[[x]][1],':',data$TimeEST[[x]][2])

    }
}

有帮助吗？

我有一个数据集记录了三栋建筑的能源使用情况.我有一个融化的数据框,可以从钻石集合中模仿:

data <- melt(diamonds[,c('depth','table','cut','color')],id=c('cut','color'))

基本上,我从三个不同的建筑物(7'颜色'因素)每个月('切割')有加热('深度')和冷却('表')数据.我想在每个月的条形图中并排绘制三个建筑物(7'颜色'因子)('cut').

我希望代表冷却('表')或加热('深度')的条形根据建筑物('颜色'因子)改变它们的阴影,同时保持按月分组('切割').这是一种可视化钻石数据的坏方法,但应该适用于建筑物,因为它们的加热和冷却月份通常不会重叠.到目前为止,我有:

p <- ggplot(data,
        aes(color,value,group=cut))
p <- p + geom_bar(stat = 'identity',
              position = 'dodge',
              aes(fill = variable))
print(p)

我尝试使用scale_fill_manual,但无法想到一个有效的策略:

colours <- c('#0000FF', '#0033FF', '#0066FF', '#FF0000', '#FF3300', '#FF6600')

p <- p + scale_fill_manual(values = colours,
                           group = data$variable)

当我设置模拟 Dymola 的输出间隔时，我希望在 .mat 文件中接收间隔数+ 1 个数据点。事实并非如此，为什么呢？

查看Dymola 2012 用户手册：

输出间隔指定结果存储的频率。它可以根据模拟的间隔长度或间隔数来指定。默认情况下，结果也存储在离散事件中。

我认为期望与实际结果之间的差异与离散事件的存储有关。如果这是正确的，我该如何关闭这个功能？