小编use*_*980的帖子

我有一个ggplot图表,我想将0以下的自定义字符串作为"内部"插入,而将0以上的自定义字符串作为"已删除"插入.

我这样做:

ggplot(z, aes(Date, Breach1/60, group=Jobs, label=c("Within SLA", "Breached SLA"))) + 
 geom_line(size=1) + 
 theme_bw() + ylab("Hours") + xlab("Date") + opts(title="Jobs") + 
 geom_hline(yintercept=0, color="red", size=2) + geom_text(hjust=0, vjust=3)

这似乎把文字放在了所有地方.我想在零上面放一个文本,在零值下面放一个文本.有任何想法吗？

我正在构建一个igraph,并希望能够更改图形标题的颜色和字体大小.

dput(df)
structure(list(Month = structure(c(15248, 15522), class = "Date"), 
    Value = c(1, 3)), .Names = c("Month", "Value"), row.names = 1:2, class = "data.frame")

g <- graph.data.frame(df)

 plot(g, layout =  layout.kamada.kawai,  vertex.label = V(g)$name,  vertex.label.color= "white",edge.arrow.size=0.5,  edge.curved=T, edge.label=E(g)$Freq, edge.label.color="pink", edge.label.font=5,vertex.shape="circle",edge.color="white", vertex.color="red", asp=0, main="This is my first igraph")

我有一个数据框,我想以有组织的方式将其写入pdf文件.

例如,我的df看起来像这样:

Date    County    Trade
1/1/2012  USA     5
1/1/2012  Japan   4
1/2/2012  USA     10
1/3/2012  Germany 15

我希望输出为按日期分组,在每组之后放置一个空格或换行符;

我有这段代码,但这会将所有内容打印到pdf文件而不进行分组:

library(gridExtra)
pdf("trade.pdf", height=11, width=8.5)
grid.table(df)
dev.off()

任何想法如何最好地在pdf文件中显示此数据集与日期分组？我喜欢使用grid.Extra.有谁知道如何把标题放到grid.Extra？

我有一个名为y的数据框

dput(y)
structure(list(val1 = c(25L, 615L, 30L, 76L, 97L, 211L, 0L, 40L, 
10L, 10L), val2 = c(101L, 286L, 124L, 77L, 176L, 120L, 0L, 8L, 
56L, 49L), val3 = c(157L, 454L, 106L, 242L, 144L, 31L, 0L, 40L, 
45L, 57L)), .Names = c("val1", "val2", "val3"), row.names = c(NA, 
10L), class = "data.frame")

我希望能够查看val1和val2列,如果val1> 10,则将值替换为TRUE,否则替换为FALSE并查看val2,如果val2 <5,则将值替换为TRUE,否则为FALSE

我可以使用子集函数来选择它们,而不是使用子集,我喜欢用TRUE或FALSE替换值,任何想法我将如何做到这一点？

X

Team Date       Score
A    1-1-2012   80
A    1-2-2012   90
A    1-3-2012   50
A    1-4-2012   40   
B    1-1-2012   100
B    1-2-2012   60
B    1-3-2012   30
B    1-4-2012   70
etc

我需要并且可以将此数据框转换为每个团队的一行宽数据框,并将所有观察和日期作为标题:

XX

Team 1-1-2012 1-2-2012  1-3-2012 1-4-2012
A    80       90        50        40
B    100     60         30        70  

我需要计算每行的均值和sd,我可以这样做:

XX

Team 1-1-2012 1-2-2012  1-3-2012 1-4-2012  mean   sd
A    80       90        50        40       75    20
B    100     60         30        70       55    10 

考虑到我在数据帧xx中有数千行.我想对每个单元格进行计算,如下所示:

如果abs(xx-Mean)> 3*SD,则创建计数器列名称并递增该值.这个想法是将每个观察值与平均值和sd进行比较,如果给定团队的每个观察值与此匹配 - abs(xx-Mean)> 3*SD,则递增计数器.在检查每个单元格之后,我想查看每个团队的每个计数器,并获得具有最高计数器值的前十名高级团队.基本上我试图检测最多的异常值.一旦我获得前10名团队名称,我想在数据框x上绘制他们的时间序列数据.

我希望我不会让它变得比它应该更复杂.不确定,R已经具有对每个单元格进行计算的功能.如何实现这一点的任何想法表示赞赏？

我正在创建一个使用xtable来创建表格并放入pdf文件的sweave文档。它可以工作，但是表格不适合该文档，并且缺少一些文本。有没有一种方法可以使xtable中的文本对齐/使xtable完全适合pdf文件？

这是我的数据：

dput(x)
structure(list(App = structure(c(3L, 2L, 1L), .Label = c("AppServer", 
"Db", "Web"), class = "factor"), Group = structure(c(2L, 1L, 
1L), .Label = c("Back", "Front"), class = "factor"), Owner = structure(c(1L, 
1L, 1L), .Label = "Infrasructure", class = "factor"), Server = structure(1:3, .Label = c("ServerA", 
"ServerB", "ServerC"), class = "factor"), NumberCPU = c(64L, 
120L, 120L), Description = structure(c(1L, 3L, 2L), .Label = c("Front End server to server web traffic", 
"Hold Web templates to generate dynamic content", "Keeps customer data and …

我已经拟合了一个线性回归模型：

   Lin <- lm(y~x, data=df)

当我使用该summary函数时，我会得到一些输出。如何从该输出中提取参数系数？

我正在尝试搜索字符串以对数据帧进行子集化.我的df看起来像这样:

dput(df)
structure(list(Cause = structure(c(2L, 1L), .Label = c("jasper not able to read the property table after the release", 
"More than 7000  messages loaded which stuck up"), class = "factor"), 
    Resolution = structure(1:2, .Label = c("jobs and reports are processed", 
    "Updated the property table which resolved the issue."), class = "factor")), .Names = c("Cause", 
"Resolution"), class = "data.frame", row.names = c(NA, -2L))

我想这样做:

df1<-subset(df, grepl("*MQ*|*queue*|*Queue*", df$Cause))

在"原因"列中搜索MQ或队列或队列,使用匹配的记录对数据帧df进行子集化.它似乎没有工作,它捕获其他记录,MQ,队列或队列字符串不存在.

这是你怎么做的,我可以遵循的任何其他想法？

我正在使用jstree插件来搜索节点.它的工作原理,当发现默认颜色是非常明亮的蓝色.你如何将默认颜色转换为其他颜色.

此外,如果找不到搜索文本,我希望能够向用户显示错误.有什么想法我会怎么做？

function myFunction()
{
$(document).ready(function(){

var value=document.getElementById("search_field").value; 

    $("#search_tree").click(function () { 

        $("#tree").jstree("search",value) 
 }); 

 }); 
}

这是我的函数,如果它在节点列表中找到文本则返回.

我想用海军蓝突出节点,并将窗口移动到该节点(有时,三个可能太大,需要调整浏览器窗口以查看突出显示的节点).这种脚本语言非常新,并且欣赏任何输入.谢谢.

我试图连接字符串和整数如下:

#include "Truck.h"
#include <string>
#include <iostream>

using namespace std;

Truck::Truck (string n, string m, int y)
{
    name = n;
    model = m;
    year = y;
    miles = 0;
}

string Truck :: toString()
{

    string truckString =  "Manufacturer's Name: " + name + ", Model Name: " + model + ", Model Year: " + year ", Miles: " + miles;
    return truckString;
}

我收到此错误:

error: invalid operands to binary expression ('basic_string<char, std::char_traits<char>, std::allocator<char> >'
      and 'int')
        string …