小编Cur*_* G.的帖子

我在 RStudio 的数据视图中遇到问题，我只能看到所有数据帧的前 50 列。是否可以增加视图列数？

所以，我有一个名为 Date.birth 的列的 data.frame，但我有数字格式的这些值：

Date.birth
43067
43060

可能是问题格式。但我需要这样的日期格式：

Date.birth
11/28/17
11/21/17

其实上面的格式是正确的。我试过这个命令：

as.Date(levels(data$Date.birth), format="%d.%m.%Y")

但没有用。有人有建议吗？

谢谢。

我有以下两个数据框：

Dt1

barcode ID
1       AA
2       AA
3       AA
4       BB
5       BB
6       CC
7       DD
8       EE

Dt 2

barcode weight
1       55
3       45
6       35
7       80

我想合并数据框，使其以条形码为基础，删除重复或不重复的ID，我的最终数据框将如下所示：

   barcode  ID 
    4       BB   
    5       BB
    8       EE

我尝试了几个命令，但是任何一个都可以。

I have this situation, but with much more information:

Barcode
NM00000512
NM000522
NM00000513
NM000514

And I would like to insert two more zeros in the shorter Barcodes, like this:

Barcode
NM00000512
NM00000522
NM00000513
NM00000514

I tried this df$Barcode <- gsub('NM000', "NM00000",df$Barcode) but didn't work. Thanks

我有一个包含 48 个工作表的 Excel 文件，我使用以下代码读取多个工作表：

lst <- lapply(1:48, function(i) read_excel("my_file.xlsx", sheet = i))

lst有信息，但我想在 R 中创建单独的数据框。因此，我想创建 48 个表。我该怎么办？

我有一个具有此尺寸 (1280 x 960) 的图像。要创建具有此尺寸的空白图像，我使用以下命令：

import cv2
import numpy as np    
blank_image2 = 255 * np.ones(shape=[960, 1280, 3], dtype=np.uint8)

是否可以根据另一个尺寸创建空白图像image？像这样的东西：

import cv2
import numpy as np    
blank_image2 = 255 * np.ones(shape=image, dtype=np.uint8)

我有这个数据集：

df <- data.frame( raca = c("Nel","Nel","Nel", "Nel","Angus","Angus","Angus","Angus"),\n                  marmo = c(350, 320, 330, 400, 800, 820, 450, NA))\n

我想做描述性统计。我使用了这段代码：

df %>%\n  group_by(raca) %>%\n  dplyr::summarise(across(1,~data.frame(M\xc3\xa9dia =round(mean(.,na.rm=TRUE,digits=2),digits = 2),\n                                                    N = length(.),\n                                                    DP = round(sd(.,na.rm=TRUE),digits = 2),\n                                                    Min = min(.,na.rm=TRUE),\n                                                    Max = max(.,na.rm=TRUE),\n                                                    `Coef Varia\xc3\xa7\xc3\xa3o` = round(sd(., na.rm=TRUE)/mean(.,na.rm=TRUE)*100,digits=2)))) %>%\n  pivot_longer(-raca) %>% arrange(name,raca)\n

并且运作良好。但我想要一个函数，我尝试了这段代码：

desc_function <- function(a,b, c)   { a %>%\n    group_by(a[,b]) %>%\n    dplyr::summarise(across(a[,c],~data.frame(M\xc3\xa9dia =round(mean(.,na.rm=TRUE,digits=2),digits = 2),\n                                              N = length(.),\n                                              DP = round(sd(.,na.rm=TRUE),digits = 2),\n                                              Min = min(.,na.rm=TRUE),\n …