小编Jul*_*ora的帖子

最近,我一直在玩git.我正在尝试模拟将补丁应用到我的主分支,这个补丁理解了一个提交,我在java操作中添加了一些注释.我使用git生成了补丁format-patch.然后我切换到我的主分支来应用补丁.执行git apply命令时发生以下错误:

path/to/my/patch/file: line x
path/to/my/patch/file: line x+1
path/to/my/patch/file: line x+2
path/to/my/patch/file: line x+3

我注意到,我也试过以下参数:--ignore-space,ignore-whitespace,

我正在尝试制作一个函数,它将为我提供一个可以用于indesign,illustrator或inkscape的情节.在尝试这样做时,我遇到了两个我无法解决的问题.

1)设置我的绘图的宽度和高度(或只是grobTable):我得到的输出非常小,当在illustrator中升级它时,字体跟随并变为大的方式.因此,我想制作手动定义的宽度和高度的图.

2)有时标题,注释和rownames会"放错位置"(有关详细信息,请参阅第1和第2小节之间的区别).当rownames很短时就会发生这种情况.

library(gridExtra)
library(ggplot2)

data(diamonds)

## plot function

kryds.row <- function(x,y, p=100, decor="%", digits=3,
                  titel="", note="", red=219, green=55, blue= 153){

c <- table(x, y)
s <- as.character(sum(c))
s <- paste("Antal svarpersoner=", s, sep=" ")
j <- prop.table(c,1)
r <- c(rownames(j),"Total")
k <- c(colnames(j), "Total")
j <- addmargins(j, margin =2, FUN = sum)
j <- round(j, digits)
j[]<-paste(j*p, decor, sep=" ")

farve <- rgb(red,green,blue, maxColorValue =255)

table     <-   tableGrob(j,
                       cols = k,
                       gpar.coretext = gpar(fontsize = 12),            
                       gpar.coltext  = gpar(fontsize …

我是R的新手,不知道如何使用ggplot2绘制两个data.frames.我收到以下错误消息:Error: ggplot2 doesn't know how to deal with data of class uneval

如何将我的数据与基础世界地图放在一起？

这是我的代码:

require(Hmisc)
require(mapproj)
require(ggplot2)
require(rgdal)
require(maptools)
require(sp)
require(cshapes)
gpclibPermit()

world <- cshp(date=as.Date("2008-1-1"))
world.points <- fortify(world, region='COWCODE')
p <- ggplot(world.points, aes(long,lat,group=group)) + geom_polygon()

dat <- mdb.get("CLIWOC15_2000.mdb") # you can get the data from here: http://pendientedemigracion.ucm.es/info/cliwoc/cliwoc15.htm

tmp <- dat$CLIWOC15[,c("Lon3","Lat3")]

ggplot(world.points,aes(long,lat,group=group))
+geom_polygon()
+geom_point()
+geom_histogram(tmp,aes(Lon3,Lat3),alpha=0.01,size=1)
+coord_map()+ylim(-90,90)

我找不到真正符合我问题的帖子,所以我们走了:

我想在我的网站上实现"通过邮件共享"按钮,所以当你点击按钮时,我们会说outlook或thunderbird打开,并为您提供在新邮件中共享网站链接的选项.

我不太确定,但我认为我不能完全用html完成它,导致facebook即当你链接到他们的共享网站时也运行JS.

我有一个数据框,其中包含两个字符串变量,字符数相同.这些字符串代表学生对某些考试的回答.第一个字符串包含正确回答的每个问题的+号和每个错误项的错误响应.第二个字符串包含所有正确的答案.我想用第二个字符串中的正确答案替换第一个字符串中的所有+符号.可以使用以下代码创建简化的启发式数据集:

df <- data.frame(v1 = c("+AA+B", "D++CC", "A+BAD"), 
                 v2 = c("DBBAD", "BDCAD","CDCCA"), stringsAsFactors = FALSE)

因此,df$v1需要更换+符号,其中的字母df$v2与字符串的开头距离相同.有任何想法吗？

我正在使用'bife'包在R中运行固定效果logit模型.但是,根据我在下面的结果,我无法计算任何拟合优度来衡量模型的整体拟合度.如果我知道如何根据这些有限的信息来衡量拟合优度,我将不胜感激.我更喜欢卡方检验,但仍无法找到实现这一目的的方法.

    ---------------------------------------------------------------                 
    Fixed effects logit model                   
    with analytical bias-correction                 

    Estimated model:                    
    Y ~ X1 +X2 + X3 + X4 + X5 | Z                   

    Log-Likelihood= -9153.165                   
    n= 20383, number of events= 5104                    
    Demeaning converged after 6 iteration(s)                    
    Offset converged after 3 iteration(s)                   

    Corrected structural parameter(s):                  

        Estimate    Std. error  t-value Pr(> t) 
    X1  -8.67E-02   2.80E-03    -31.001 < 2e-16 ***
    X2  1.79E+00    8.49E-02    21.084  < 2e-16 ***
    X3  -1.14E-01   1.91E-02    -5.982  2.24E-09    ***
    X4  -2.41E-04   2.37E-05    -10.171 < 2e-16 ***
    X5  1.24E-01    3.33E-03 …

我有以下数据：

library(tidyverse)
set.seed(1)
test <- data.frame(id = c(rep(1, 3), rep(2, 4), rep(3, 5)),
                   Year = 2000 + c(1,3,5,2,3,5,6,1,2,3,4,5),
                   var1 = sample(0:2, replace = TRUE, size = 12, prob = c(0.6, 0.3, 0.1)),
                   var2 = sample(0:2, replace = TRUE, size = 12, prob = c(0.6, 0.3, 0.1)))

我需要在每个 id 组中每个变量 ( var1and var2) 不为零的第一年。

我知道如何找到第一个非零行的行号：

temp <- function(a) ifelse(length(head(which(a>0),1))==0,0,head(which(a>0),1))

test2 <- test %>% group_by(id) %>% 
mutate_at(vars(var1:var2),funs(temp)) %>%
filter(row_number()==1) %>% select (-year)

     id  var1  var2
1     1   0     1
2 …

我有一个日常温度测量数据集,想要计算超过32°C的累积温度总和.我不想知道温度超过32的天数sum(tmax_mean > 32),但是将温度值累加到32 以上.因此,如果温度为31,33,34,......,则代码应计算为0 + 1 + 2 +. ..

tmax_mean <- c(31.3,32.1,33.5,29,34.2)

我试过 sum(tmax_mean > 32) 但只告诉我温度超过32°C的天数,在这种情况下为3.

我正在使用分类变量进行回归并遇到了这个问题。在这里，用户想要为每个虚拟对象添加一列。这让我很困惑，因为我虽然在列中包含所有存储的as.factor()虚拟变量的长数据相当于拥有虚拟变量。

有人可以解释以下两个线性回归模型之间的区别吗？

线性模型 1，其中月份是一个因素：

dt_long
          Sales Period Month
   1: 0.4898943      1    M1
   2: 0.3097716      1    M1
   3: 1.0574771      1    M1
   4: 0.5121627      1    M1
   5: 0.6650744      1    M1
  ---                       
8108: 0.5175480     24   M12
8109: 1.2867316     24   M12
8110: 0.6283875     24   M12
8111: 0.6287151     24   M12
8112: 0.4347708     24   M12

M1 <- lm(data = dt_long,
         fomrula = Sales ~ Period + factor(Month)

线性模型 2，其中每个月都是一个指标变量：

    dt_wide
          Sales Period M1 M2 M3 M4 M5 M6 M7 M8 M9 M10 …

我有一个如下所示的 data.frame（有 1135 行）：

         var1   var2  corr
590   OTU3902 K00021 0.832
624   OTU2457 K00076 0.847
770   OTU0939 K00184 0.842
774   OTU0939 K00185 0.818
792   OTU3902 K00209 0.828
1053  OTU2859 K00299 0.803
1127  OTU0001 K00320 0.845
1128  OTU0041 K00320 0.819
1129  OTU1364 K00320 0.850
1130  OTU1891 K00320 0.803
1131  OTU2859 K00320 0.841
1137  OTU2457 K00329 0.845
1409  OTU0939 K00349 0.806
1465  OTU1531 K00366 0.840
1470  OTU1531 K00367 0.847
1474  OTU0001 K00368 0.840
1475  OTU0095 K00368 0.829
1544  OTU3041 K00395 0.820
1729 …