小编pe-*_*rry的帖子

我正在拟合几个逻辑回归模型，并尝试使用该包texreg创建一个外观漂亮的表格来展示所有模型。

据我所知，texreg::screenreg只能报告系数（β）和相应的 CI，但对于逻辑回归，更常见的是报告系数的指数（优势比）。

我知道我可以使用override.coef,override.ci.low并override.ci.up获得我想要的东西，但是输出表是不可取的，如果 CI 覆盖 0，转换后应该是 1，它会给出一个星号。

有没有更好更简单的方法来转换系数和 CI？另外，我是否可以覆盖星号，我想提供星号来表示 p 值 ( *** p < 0.001, ** p < 0.01, * p < 0.05) 的大小？谢谢！

这是我尝试过的

> set.seed(123)
> x1 <- rnorm(1000)
> x2 <- rnorm(1000)
> y <- runif(1000) < (1 / (1 + exp(-(0.3 + 0.5*x1))))
> mod1 <- glm(y~x1, binomial())
> mod2 <- glm(y~x2, binomial())
> mod3 <- glm(y~x1+x2, binomial())
> 
> tex1 <- extract(mod1) …

我最近从这张地图下载了KML文件,并尝试使用该软件包xml2来提取露营地的信息,例如地理位置,站点周围的设施等; 但我{xml_nodeset (0)}到最后.

Belows是我用过的代码,

library(xml2)
campsites <- read_xml("file_path")
xml_find_all(campsites, ".//Placemark")

这是KML文件的结构(您也可以尝试xml_structure(campsites)),

> library(magrittr)
> campsites
{xml_document}
<kml>
[1] <Document>\n<description><![CDATA[powered by <a href="http://www.wordpress.org">WordPress</a> &amp; <a href="https://www.mapsmarker.com">MapsMarker.com</a>]] ...
>
> campsites %>% xml_children %>% xml_children %>% xml_children
{xml_nodeset (55)}
 [1] <IconStyle>\n  <Icon>\n    <href>http://www.mountaineering-lohas.org/wp-content/uploads/leaflet-maps-marker-icons/tents.png</href>\n  </Icon>\n</IconStyle>
 [2] <IconStyle>\n  <Icon>\n    <href>http://www.mountaineering-lohas.org/wp-content/uploads/leaflet-maps-marker-icons/tents-1.png</href>\n  </Icon>\n</IconStyle>
 [3] <IconStyle>\n  <Icon>\n    <href>http://www.mountaineering-lohas.org/wp-content/uploads/leaflet-maps-marker-icons/tents1.png</href>\n  </Icon>\n</IconStyle>
 [4] <name>香港營地 Hong Kong Camp Site</name>
 [5] <Placemark id="marker-1">\n<styleUrl>#tents</styleUrl>\n<name>æµæ°´éŸ¿ç‡Ÿåœ° ( Lau Shui Heung Camp Site )</name>\n<TimeStamp><when>2013-02-21T04:02:29+08: ...
 [6] <Placemark id="marker-2">\n<styleUrl>#tents</styleUrl>\n<name>鶴藪營地(Hok …

我是否可以创建一个R函数,输出不会显示内部的每个对象,但你可以使用$或调用其中的对象[],如下所示

abc <- function(a=1, b=2, c=3) {...}
#by default, abc() only the value of a will be shown but not b neither c

abc() 
[1] 1
abc()$a
[1] 1
abc()["b"]
[1] 2    
abc()$c
[1] 3   

谢谢.

我有两个data.table dx和dy

dx <- data.table(a = c(1,1,1,1,2,2), b = 3:8)
dy <- data.table(a = c(1,1,2), c = 7:9)

我想加入dy到每一行dx,下面是所需的输出

data.table(plyr::ddply(dx, c("a", "b"), function(d) merge(d, dy, by = "a")))
    a b c
 1: 1 3 7
 2: 1 3 8
 3: 1 4 7
 4: 1 4 8
 5: 1 5 7
 6: 1 5 8
 7: 1 6 7
 8: 1 6 8
 9: 2 7 9
10: 2 8 9

但是,我没有使用内部[]的操作 …