对于基本R选项：

df <- data.frame(Col2=c("100", "B", "A", "Z", "10", "4"), stringsAsFactors=FALSE)
df[order(grepl("^\\d+$", df$Col2), sprintf("%10s", df$Col2)), ]

[1] "A"   "B"   "Z"   "4"   "10"  "100"

这里的两个排序级别首先将字母放在数字之前。第二个排序级别将所有字符填充为10个带0的字符。然后它会上升。这实际上是数字的升序数字排序。这里的技巧是要认识到，如果数字字符串都具有相同的宽度，那么它们实际上可以像文本一样正确排序。

也许不是最佳解决方案，但使用dplyr并将您提供的数据称为df：

numbers <- df %>% 
  filter(!(Col2 %in% LETTERS)) %>% 
  mutate(Col2 = as.numeric(Col2)) %>% 
  arrange(Col2) %>% 
  mutate(Col2 = as.character(Col2))

non_numbers <- df %>% 
  filter(Col2 %in% LETTERS) %>% 
  arrange(Col2)

output <- rbind(non_numbers, numbers)

输出量：

Col1 Col2 Col3
1  Apples    A   90
2  Apples    A   90
3   Pears    B   90
4 Bananas    C   50
5    Cake    1   50
6 Bananas    2   50
7   Pears   12   90
8    Cake  100   50

不是按照你想要的顺序。但行绑定可以解决这个问题。

DT <- fread("Col1    Col2   Col3
Apples     A     90
Pears     12     90
Bananas    C     50
Cake       1     50
Apples     A     90
Pears      B     90
Bananas    2     50
Cake     100     50")

library(gtools)
DT[mixedorder(DT$Col2),]

您可以使用as.numeric将字符串数字转换为数字。由于有一些字符，你会收到来自as.numeric的警告，我使用suppressWarnings抑制了这些字符。使用这个数字和order中的字符串对向量进行排序。此外，可以选择radix排序，这可以提高速度。

s <- c(-1, -10, 2.5, "1e2", "A", 12, "C", 1, "A", "B", 2, 100)

s[order(suppressWarnings(as.numeric(s)), s, na.last = FALSE)]
#s[order(suppressWarnings(as.numeric(s)), s, na.last = FALSE, method="radix")] #Alternative
# [1] "A"   "A"   "B"   "C"   "-10" "-1"  "1"   "2"   "2.5" "12"  "100" "1e2"