小编Kon*_*lph的帖子

当我使用dplyr中的select函数时，它不起作用，并给我一个错误，指出我要选择的列名是未使用的参数。但是，如果我在函数调用之前指定dplyr，例如s：“ dplyr :: select”，则它可以正常工作：

这是一个示例df：

 sampledf <- structure(list(CRN = c(5497L, 6515L, 7248L, 36956L, 37021L), 
        varA = structure(c(2L, 2L, 2L, 2L, 2L), .Label = c("A", 
        "B"), class = "factor"), varB = c(NA_integer_, NA_integer_, 
        NA_integer_, NA_integer_, NA_integer_), VarC = c(NA, NA, 
        NA, NA, 2L), varD = c(NA_integer_, NA_integer_, 
        NA_integer_, NA_integer_, NA_integer_), varE = c(1L, 1L, 4L, NA, NA)), .Names = c("CRN", 
        "varA", "varB", "varC", "varD", "varE"), row.names = c(NA, 5L), class = "data.frame")

这会产生错误：

 sample_error <- select(sampledf, varA)

select（sampledf，varA）中的错误：未使用的参数（varA）

这有效：

 sample_working <- …

我之前从未使用过Java AWT,现在我有一段代码显示JFrame并将所有子组件的font属性设置为相同的值.我想把物业放在一个地方.我怎样才能做到这一点？

在.NET/WinForms中,子控件从其父控件继承,因此设置Form实例的字体以将其传播到所有控件就足够了.出乎意料的是,这似乎并不适用于AWT.

以下小代码以递归方式设置所有组件的字体:

private void setFontForAll(JFrame f, java.awt.Font font) {
    f.setFont(font);
    setFontRecursive(f.getContentPane().getComponents(), font);
}

private static void setFontRecursive(Component[] components, java.awt.Font font) {
    for (Component c : components) {
        c.setFont(font);
        if (c instanceof java.awt.Container)
            setFontRecursive(((java.awt.Container)c).getComponents(), font);
    }
}

但是,它有四个缺点:

1. 额外的代码,对于具有嵌套布局面板的大型表单,实际上可能效率很低.
2. 代码是非通用的.如果我将来需要为另一个属性做同样的事情,我必须重写该方法(或者以简洁为代价将其重构为更一般的方法).
3. 用法是非声明性的,即必须在表单创建的最后调用(在所有子组件初始化和添加之后)而不是以声明方式在任何地方调用.
4. 它不起作用.组件设置正确但并非所有组件都是组件.例如,TitledBorders的JPanels不会被设置.

我有一个条形图:

> data = c(1, 5, 3, 4)
> barplot(data, space = 0, col = 'gray', border = 0)

在OS X上,使用默认驱动程序(Quartz),如下所示:

请注意条形之间没有空格.但是,在将图形导出为PDF时也是如此

1. 通过quartz.save('file.pdf', type = 'pdf')或
2. 通过pdf('file.pdf', type = 'pdf')接着barplot(…)

输出如下所示:

栏之间有明显的线条.不幸的是,在我的情况下,这不仅仅是一种美学上的麻烦:我正在绘制很多像素细条纹,条形之间的空间几乎和条形本身一样大,这大大改变了情节的感知.

有没有办法摆脱输出中的线条？优选使用pdf设备而不是PDF quartz输出？

我试图获得两个日期之间的交易日期数量,这将只排除周末,不会考虑任何假期.我正在使用Boost和c ++ 11标准.

using namespace boost::gregorian;
long dateDifference( string start_date, string end_date ) {

            date _start_date(from_simple_string(start_date));
            date _end_date(from_simple_string(end_date));


            long difference = ( _start_date - _end_date ).days();

            return difference;

        }

这只返回两个日期之间的天数而不考虑周末.有人能指出我正确的方向.我似乎无法弄清楚解决方案.

谢谢,Maxx

问题:

我有一个数据框,我想用格子的面板点图(而不是ggplot2)可视化.它包含一个变量,应该有条件地使用它来通过不同的颜色填充来突出显示数据.

可重复的例子:

require(lattice)

# Make reproducable data frame
df= mtcars
df= cbind(car = rownames(df), df) 
rownames(df)= NULL
df=df[1:5, c("car", "mpg", "cyl", "carb")]

df
# output:
#                car  mpg cyl carb
#         Mazda RX4 21.0   6    4
#     Mazda RX4 Wag 21.0   6    4
#        Datsun 710 22.8   4    1
#    Hornet 4 Drive 21.4   6    1
# Hornet Sportabout 18.7   8    2

# I am interested to highlight those data which have carb=1
df[df$carb==1,]

#            car  mpg cyl carb …

我需要在R中编写一个查询来匹配列名中的部分字符串.我在SQL中寻找类似于LIKE运算符的东西.例如,如果我知道字符串的开头,中间或结尾部分,我会以格式编写查询:

LIKE 'beginning%middle%' 

在SQL中,它将返回匹配的字符串.在pmatch或grep似乎我只能指定'开头','结束'而不是订单.我正在寻找R中是否有类似的功能？

例如,假设我在向量中查找:

y <- c("I am looking for a dog",
       "looking for a new dog", "a dog", "I am just looking")

让我们说我想写一个选择的查询,"looking for a new dog"我知道字符串的开头是"looking"和字符串的结尾是"dog".如果我做了grep("dog",y)它会返回1,2,3.有什么方法可以指定开头和结尾grep吗？

我一直在查看源代码,试图了解有关C++的更多信息,但我遇到了一些令人困惑的代码.我无法通过玩它来弄清楚它的用途.

请问某人可以解释操作符浮动*()的作用以及如何使用它？

class Vector
{
public:
    float x,y,z;


    Vector() : x(0), y(0), z(0){
    }

    Vector( float x, float y, float z ) : x(x), y(y), z(z){
    }

    operator float*(){
        return &x;
    }

    operator const float *(){
        return &x;
    }

我已经搜索了StackOverflow,它看起来像是一个转换运算符,但我仍然不确定它实际上是做什么以及为什么它有用.

亲切的问候,

执行默认变量替换的最简单方法是什么？

x = None
... (some process which may set x)
if x is None: use_x = "default"
else:         use_x = x

有没有办法在一行中写这个？

1. Fx=purrr::map(CDF, ~ tibble(
                       severity=severities$severity,
                       inclusive=severities$inclusive,
                       Fx=.x(severities$severity, severities$inclusive))))
   

   Run Code Online (Sandbox Code Playgroud)

2. raw_df <- tibble::tribble(
       ~"segment", ~"limit", ~"attach", ~"pct_written", ~"premium", ~"product", ~"lalae_ratio",
       "",    50000,      1000,            0.5,     273456,    "prod1",           0.65,
       "",    20000,      2000,            0.5,     285760,    "prod2",           0.65,
       "",    2e+05,      3000,            0.5,     956456,    "prod3",           0.65,
       "",    10000,       300,            0.5,      90890,    "prod4",           0.65)
   

   Run Code Online (Sandbox Code Playgroud)

我可以猜测它，但我对它的作用没有准确的定义。

这不同于：

dependent_variable ~ independent_variables

没有代码显示，但一般问题

如果您有一个包含唯一 ptr 的类，那么浅拷贝和深拷贝之间的区别有何相关性？