我在Stata中有一些数据看起来像前两列:
group_id var_to_rank desired_rank
____________________________________
1 10 1
1 20 2
1 30 3
1 40 4
2 10 1
2 20 2
2 20 2
2 30 3
我想根据一个变量(var_to_rank)在组(group_id)中创建每个观察的等级.通常,为此我用过:
gen id = _n
但是我的一些观察结果(在我的小例子中group_id = 2)具有相同的排名变量值,这种方法不起作用.
我也试过用:
egen rank
具有不同选项的命令,但不能使我的等级变量看起来像desired_rank.
你能指点我解决这个问题吗？
tmap从一个玩具示例开始，我可以使用以下代码快速获取交互式地图：
library(tmap)
tmap_mode("view")
data("World", "metro")
tm_shape(World) +
tm_polygons() +
tm_shape(metro) +
tm_dots("pop2010",
col = "red") +
tm_format("World")
我希望地图最初仅显示图层World并隐藏地铁图层。仅当用户勾选图层选择中的框时它才会出现。
我浏览了tm_shape文档tm_dots，但没有发现任何似乎可以控制这种行为的东西。那可能吗？
我有一个数字框架,数字类似于:
df$X1 df$X2
.9 1.442
我如何使用此数据框中的元素为置信区间创建标签,这些格式将是格式良好的字符串:
(0.90, 1.42)
我在某处之间丢失paste,as.character并且c()和似乎没有任何工作:/
我正在尝试使用if语句为我foreach在 Stata 中的循环内创建的图形分配正确的标签：
foreach major in var1 var2 {
* conditional labelling
if "`major'" == "var1" {
local ytitle "title for var1"
}
else if "`major" == "var2" {
local ytitle "title for var2"
}
di in red "____________"
di in red "`major'"
di in red "`ytitle'"
di in red "____________"
}
这个练习的输出是
____________
var1
should be var1
____________
____________
var2
should be var1
____________
我的问题是 - 为什么在循环的第二个实例中没有改变本地？
有很多问题涉及重复观察的主题，但到目前为止，没有一个对我有用。
在这个问题中，我学习了如何从向量中选择所有重复项。
# vector
id <- c("a","b","b","c","c","c","d","d","d","d")
#To return ALL duplicated values by specifying fromLast argument:
id[duplicated(id) | duplicated(id, fromLast=TRUE)]
## [1] "b" "b" "c" "c" "c" "d" "d" "d" "d"
#Yet another way to return ALL duplicated values, using %in% operator:
id[id %in% unique(id[duplicated(id)])]
## [1] "b" "b" "c" "c" "c" "d" "d" "d" "d"
现在有一个像这样的数据框：
dat <- data.frame(x = c(1, 1, 2, 2, 3),
y = c(5, 5, 6, 7, 8),
z = c('a', 'b', 'c', …我正在尝试kableExtra在RStudio的ioslides中包含表格.我正确地得到了表格,但是从插图示例中简单的格式化似乎已经消失了.
---
title: "Tables"
output:
ioslides_presentation: default
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(knitr)
library(kableExtra)
dt <- mtcars[1:5, 1:6]
```
## No styling
```{r t1}
dt %>%
kable("html")
```
## Styling
```{r t2}
dt %>%
kable("html") %>%
kable_styling(bootstrap_options = c("striped", "condensed", full_width = F, position = "center"))
```
我缺少什么想法？