- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我知道我的问题很简单,但不适合我。这是小数据集。
mark1 <- c("AB", "BB", "AB", "BB", "BB", "AB", "--", "BB")
mark2 <- c("AB", "AB", "AA", "BB", "BB", "AA", "--", "BB")
mark3 <- c("BB", "AB", "AA", "BB", "BB", "AA", "--", "BB")
mark4 <- c("AA", "AB", "AA", "BB", "BB", "AA", "--", "BB")
mark5 <- c("AB", "AB", "AA", "BB", "BB", "AA", "--", "BB")
mark6 <- c("--", "BB", "AA", "BB", "BB", "AA", "--", "BB")
mark7 <- c("AB", "--", "AA", "BB", "BB", "AA", "--", "BB")
mark8 <- c("BB", "AA", "AA", "BB", "BB", "AA", "--", "BB")
mymark <- data.frame (mark1, mark2, mark3, mark4, mark5, mark6, mark7, mark8)
tmymark <- data.frame (t(mymark))
names (tmymark) <- c("P1", "P2","I1", "I2", "I3", "I4", "KL", "MN")
P1 P2 I1 I2 I3 I4 KL MN
mark1 AB BB AB BB BB AB -- BB
mark2 AB AB AA BB BB AA -- BB
mark3 BB AB AA BB BB AA -- BB
mark4 AA AB AA BB BB AA -- BB
mark5 AB AB AA BB BB AA -- BB
mark6 -- BB AA BB BB AA -- BB
mark7 AB -- AA BB BB AA -- BB
mark8 BB AA AA BB BB AA -- BB
loctype <- NULL
if (tmymark$P1 == "AB" & tmymark$P2 == "AB"){
loctype = "<hkxhk>"
} else {
if (tmymark$P1== "AB" & tmymark$P2 == "BB") {
loctype = "<lmxll>"
} else {
if (tmymark$P1 == "AA" & tmymark$P2 == "AB") {
loctype = "<nnxnp>"
} else {
if (tmymark$P1 == "AA" & tmymark$P2 == "BB") {
loctype = "MN"
} else {
if (tmymark$P1 == "BB" & tmymark$P2 == "AA"){
loctype = "MN"
} else {
if (tmymark$P1 == "--" & tmymark$P2 == "AA"){
loctype = "NR"
} else {
if (tmymark$P1 == "AA" & tmymark$P2 == "--"){
loctype = "NR"
} else {
cat ("error wrong input in P1 or P2")
}} }}}}}
Warning messages:
1: In if (tmymark$P1 == "AB" & tmymark$P2 == "AB") { :
the condition has length > 1 and only the first element will be used
2: In if (tmymark$P1 == "AB" & tmymark$P2 == "BB") { :
the condition has length > 1 and only the first element will be used
tmymark1 <- data.frame (loctype, tmymark)
require(car)
for(i in 2:length(tmymark)){
if (loctype = "<hkxhk>") {
tmymark[[i]] <- recode (x, "AB" = "hk", "BA" = "hk", "AA" = "hh", "BB" = "kk")
} else {
if (loctype = "<lmxll>") {
tmymark[[i]] <- recode ((x, "AB" = "lm", "BA" = "lm", "AA" = "--", "BB" = "kk")
} else {
if (loctype = "<nnxnp>") {
tmymark[[i]] <- recode ((x, "AB" = "np", "BA" = "np", "AA" = "nn", "BB" = "--")
} else {
if (loctype = "MN") {
tmymark[[i]] <- "--"
} esle {
if (loctype = "NR") {
tmymark[[i]] <- "NA"
} else {
cat ("error wrong input code")
} } }}}
loctype P1 P2 I1 I2 I3 I4 KL MN
mark1 <lmxmm> lm mm lm mm mm lm -- mm
mark2 <hkxhk> hk hk hh kk kk hh -- kk
mark3 <nnxnp> nn np nn -- -- nn -- --
and so on
最佳答案
match
绝对是要走的路。我将两个数据框作为键,如下所示:
key <- data.frame(
P1=c("AB", "AB", "AA", "AA", "BB", "--", "AA"),
P2=c("AB", "BB", "AB", "BB", "AA", "AA", "--"),
loctype=c("<hkxhk>", "<lmxll>", "<nnxnp>", "MN", "MN", "NR", "NR"))
key2 <- cbind(
`<hkxhk>` = c("hk","hk","hh","kk"),
`<lmxll>` = c("lm", "lm", "--", "kk"),
`<nnxnp>` = c("np", "np", "nn", "--"),
MN = rep("--", 4),
NR = rep("NA", 4) )
rownames(key2) = c("AB","BA", "AA", "BB")
match
在
key1
获取
loctype
(正如贾斯汀也推荐的那样),以及
key2
的行名和列获得所需的替换,使用矩阵索引从键中获取所需的值。
loctype <- key$loctype[match(with(tmymark, paste(P1, P2, sep="\b")),
with(key, paste(P1, P2, sep="\b")))]
ii <- match(as.vector(as.matrix(tmymark)), rownames(key2))
jj <- rep(match(loctype, colnames(key2)), nrow(tmymark))
out <- as.data.frame(matrix(key2[cbind(ii,jj)], nrow=nrow(tmymark)))
colnames(out) <- colnames(tmymark)
rownames(out) <- rownames(tmymark)
out$loctype <- loctype
> print(out, na="")
P1 P2 I1 I2 I3 I4 KL MN loctype
mark1 lm kk lm kk kk lm kk <lmxll>
mark2 hk hk hh kk kk hh kk <hkxhk>
mark3
mark4 nn np nn -- -- nn -- <nnxnp>
mark5 hk hk hh kk kk hh kk <hkxhk>
mark6
mark7
mark8 -- -- -- -- -- -- -- MN
关于r - long if else 循环并在 R 中重新编码,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9213940/
这个问题在这里已经有了答案: How does Scala's apply() method magic work? (3 个回答) 9年前关闭。 假设我在 scala 中有一个 MyList 类,其
这个问题在这里已经有了答案: What is a non-capturing group in regular expressions? (18 个回答) Reference - What does
这个问题是针对嵌入式系统的! 我有以下选项来初始化一个对象: Object* o = new Object(arg); 这会将对象放入堆中并返回指向它的指针。我不喜欢在嵌入式软件中使用动态分配。 Ob
我自己搜索过,没能成功的正则表达式。 我有一个 html 文件,其中包含 [] 之间的变量我想把每一个字都写进去。 [client_name][client_company] [cl
我是 Python 新手。我不明白为什么这段代码不起作用: reOptions = re.search( "[\s+@twitter\s+(?P\w+):(?P.*?)\s+]", d
在过去 7 个月左右的时间里,我几乎一直在使用 .NET C# 进行编程。在那之前,我的大部分编程都是用 C++(从学校里学的)。在工作中,我可能需要在接下来的几个月里做一大堆 C 语言。我对 C 的
我是 RE 的新手,我正在尝试获取歌词并分离出歌词标题、和声和主唱: 下面是一些歌词的例子: [Intro] D.A. got that dope! [Chorus: Travis Scott] Ic
这可能是不可能的,但我想检查是否可以用一种简单的方式表达这样的事情: // obviously doesn't work class Foo : IFoo where T: Bar {
我们的应用程序中有“user”和“study”实体,存储在它们各自的表中。一项研究代表一种研究和已收集的数据。它们是多对多的关系,所以我们需要一个链接表:studies_users。 我们为用户分配角
将测试条件添加到 Visual Studio 2010 数据库单元测试(对于 SQL Server 2008)时,这些条件称为例如rowCountCondition1、rowCountConditio
在模拟器上,我可以从设置中卸载 SD 卡。 然后我可以将它安装到我的操作系统上,然后正常卸载它。 我一直无法弄清楚如何在模拟器上重新安装它(无需重新启动)。 提示: adb 命令 remount 是无
假设在一个分支上执行了一系列提交,但该分支尚未与主干重新同步。是否可以从提交中生成全局补丁?是否可以从一系列提交中生成“分组”补丁?如果是,如何? 最佳答案 svn diff -rXXX:YYY UR
在某些情况下,我想在我的应用程序中锁定调整大小功能,为此我尝试对属性进行数据绑定(bind),并且不允许在某些情况下更改它,但没有成功。 有没有办法这样做? 这是我不成功的尝试: XAML: Vie
当我的计算机连接多个显示器时,我可以检测它们,并根据从获取的值设置位置来向它们绘制图形 get(0, 'MonitorPositions') 但是,当我在 MATLAB 运行时断开监视器时,此属性不会
我们有一个grails应用程序,该应用程序在grails数据库中存储了各种域对象。该应用程序连接到第二个数据库,运行一些原始sql,并在表中显示结果。它基本上是一个报告服务器。 我们通过在DataSo
无法比较来自不同容器的迭代器(参见这里的示例: https://stackoverflow.com/a/4664519/225186 )(或者从技术上讲,它不需要有意义。) 这就提出了另一个问题,来自
我有以下情况: 家长 Activity : ParentActivityClass { private Intent intent; @Override public void onCreate(Bu
我经常将元素与附加功能 Hook ,例如: $('.myfav').autocomplete(); $('.myfav').datepicker(); $('.myfav').click(somefu
因此,我将 tooltipster.js 库用于工具提示,并尝试更改工具提示在不同屏幕尺寸上的默认距离。 所以这是默认的 init 的样子: $(inputTooltipTrigger).tool
我在 ARM7 嵌入式环境中工作。我使用的编译器不支持完整的 C++ 功能。它不支持的一项功能是动态类型转换。 有没有办法实现dynamic_cast<>() ? 我使用 Google 寻找代码,但到
我是一名优秀的程序员,十分优秀!