我想检查 X 列是否按降序排列,以及 X 列中是否有两个相同的值,看看是否按 Y 列中字母的字母顺序打破了联系。
这是我目前所拥有的,没有返回任何东西:
for (ii in 1:length(data_frame)) {
if (ii == 1 | ii == length(data_frame)) {
next
}
else if (data_frame[["columnX"]][ii] == data_frame[["columnX"]][ii+1]) {
ifelse(!is.unsorted(data_frame[["columnY"]][c(ii,ii+1)]),
return(TRUE),
return(FALSE))
}
}
编辑:dput()
structure(list(Count = c(8184L, 8046L, 7988L, 7970L, 7771L, 7755L,
7730L, 7650L, 7557L, 7428L), Name = c("Mary", "John", "Mary",
"Mary", "Mary", "Robert", "Mary", "Mary", "John", "Mary")), .Names = c("Count",
"Name"), row.names = c(4533L, 130862L, 3830L, 2456L, 6700L, 130863L,
3150L, 5965L, 114094L, 5269L), class = "data.frame")
最佳答案
使用dplyr
的解决方案可以使用lead
和summarise
来实现。
方法是先找出当前行和下一行之间的差异。如果该差异大于 0
,则表示 递减顺序
。如果差异为 0
,则检查 Name
列(当前与下一个)的字母顺序比较将决定 递减
顺序。
最后,如果 DecOrder
的所有值都在 TRUE
中,则表示 Count
是降序排列。
library(dplyr)
df %>% mutate(DiffCount = Count - lead(Count, default=0)) %>%
mutate(DecOrder = ifelse(DiffCount == 0, Name > lead(Name), DiffCount > 0)) %>%
summarise(IsDesc = all(DecOrder))
#Result
# IsDesc
#1 TRUE
数据
df <- structure(list(Count = c(8184L, 8046L, 7988L, 7970L, 7771L, 7755L,
7730L, 7650L, 7557L, 7428L), Name = c("Mary", "John", "Mary",
"Mary", "Mary", "Robert", "Mary", "Mary", "John", "Mary")), .Names = c("Count",
"Name"), row.names = c(4533L, 130862L, 3830L, 2456L, 6700L, 130863L,
3150L, 5965L, 114094L, 5269L), class = "data.frame")
关于r - 检查列是否按降序排列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49472864/