なぜネストされたIf文はデータフレームrを返しませんか？このコードで

Question

場合はネストされたステートメントが

x <- 4 
if(x == 4){ 
    t <- x + 1 
    if(t == 5){ 
    t + 2 
} 
} 
[1] 7 

を非常に細かい作業ですが、私は、データフレームに同じコードをしようとすると、何も結果がありません。

mydata_one <- data.frame(words = c("hello", "everyone")) 
mydata_two <- data.frame(words = c("my", "name")) 
if(length(mydata_one$word) == 2){ 
    big_data <- rbind(mydata_one, mydata_two) 
    if(length(big_data) > 3){ 
    big_data[1:3, 1] 
    } 
} 

私が探していた期待値：

[1] hello everyone my 

Answer 1

長は、データフレームでは動作しません。レコードの数を取得するには、代わりにnrowを使用します。

mydata_one <- data.frame(words = c("hello", "everyone")) 
mydata_two <- data.frame(words = c("my", "name")) 
if(length(mydata_one$word) == 2){ 
    big_data <- rbind(mydata_one, mydata_two) 
    if(nrow(big_data) > 3){ 
    big_data[1:3, 1] 
    } 
} 

出力： [1]みなさん、こんにちは私の
レベル：みんなこんにちは、私の名前