小编Dre*_*Dre的帖子

我有超过50 data.frames在我的工作环境,我想rbind.有没有一种方法来rbind的data.frames与不必键入出每个出date.frame？

我一直在做的例子:

df <- rbind(A, B, C, D, E, F)

我试过了:

df <- rbind(ls())

但这只是创建了我工作环境中所有data.frames的名称列表.

我有超过 20 二十个 data.frames 具有相同的列但行数不同。我的目标是通过列“名称”（这是五个名称的列表）合并 data.frames，在合并时我希望具有相同名称的行对 A 列求和，B 列求和，并得到平均值C列。

这是我目前正在做的事情。

首先，我将一次合并 2 个 data.frames。

DF <- merge(x=abc, y=def, by = "Name", all = T)

合并的 DF 看起来像这样

Name                              A.x    B.x   C.x   A.y   B.y  C.y
name1,name2,name3,name4,name5      11     24     7    NA    NA   NA
name1,name3,name4,name6,name7       4      8    12     3     4    7
name1,name2,name5,name6,name7      12      4     5    NA    NA   NA
name3,name4,name5,name6,name7      NA     NA    NA    15     3   28

然后我将添加这些ifelse语句来处理NAs唯一行和非唯一行。对于非唯一行，它将为 A 添加为 B 添加，对于 C 它将获得平均值。

DF$A <- ifelse(is.na(DF$A.x), DF$A.y,
    ifelse(is.na(DF$A.y), DF$A.x,
        ifelse((!is.na(DF$A.x)) …

从分段掩码中，我试图检索掩码中表示的标签。

这是我在 AWS Sagemaker 中通过语义分割模型运行的图像。

用于进行预测和显示掩码的代码。

from sagemaker.predictor import json_serializer, json_deserializer, RealTimePredictor
from sagemaker.content_types import CONTENT_TYPE_CSV, CONTENT_TYPE_JSON

%%time
ss_predict = sagemaker.RealTimePredictor(endpoint=ss_model.endpoint_name, 
                                     sagemaker_session=sess,
                                    content_type = 'image/jpeg',
                                    accept = 'image/png')

return_img = ss_predict.predict(img)

from PIL import Image
import numpy as np
import io

num_labels = 21
mask = np.array(Image.open(io.BytesIO(return_img)))
plt.imshow(mask, vmin=0, vmax=num_labels-1, cmap='jet')
plt.show()

该图像是创建的分割蒙版，它代表摩托车，其他一切都是背景。

[

从代码中可以看出，有 21 个可能的标签，其中 2 个用于蒙版，一个用于摩托车，另一个用于背景。我现在想弄清楚的是，如何在 21 个可能的选项中打印出这个掩码中实际使用的标签？

如果您需要任何进一步的信息，请告诉我，我们非常感谢您的帮助。

我想随机随机播放一个列表,以便在洗牌时列表中的每个变量都放在列表中的新位置.

我目前在做什么:

list = ['a', 'b','c', 'd'];
random.shuffle(list)

list
['c','b','d','a']

通过这种方法,我可以对列表进行洗牌,但在这种情况下,"b"仍然可以将变量放在同一个位置.

我想要的输出

完全洗牌的清单

['c','a','d','b']

我感谢任何帮助.我是python的新手,但如果需要任何进一步的信息,请告诉我.

border-color:#002449;left:74.4%top;37%;我想从这个字符串中将第一个百分比设为74.4%名为 的变量X，将第二个百分比37%设为名为 的变量Y。

我尝试使用这个正则表达式，"^.*?(\\d+)%.*"但这会取出%符号并只提取第二4个74.4

任何帮助将不胜感激。如果需要任何进一步的信息，请告诉我。

我有一个文本块,我已经写入R并被读作一个长字符串.

文本块示例:

[1] "abc \n 18:19 \n abc \n 7-9 \n abc \n"

文本块摘要:

summary(text)
Length       Class       Mode
     1   character  character

然后我做了一个strsplit text <- strsplit(text, "\n")

之后的文字摘要 strsplit

summary(text)
      Length    Class        Mode
[1,]  5         -none-  character

我完成的时候我想要什么 strsplit

summary(text)
Length      Class       Mode
     5  character  character 

任何帮助将不胜感激.如果需要更多信息,请告诉我.

目前，我正在这个网站上抓取镜头图表信息。为了抓取信息，我需要为有多少个镜头创建一个 for 循环。我通过单击“球队统计数据”并查找投篮尝试次数来查找投篮次数。

我想for loop在不知道拍摄次数的情况下做出正确的选择。

我目前正在做的事情：

shotchart <- data.frame(shot=as.vector(0), class=as.vector(0), data_homeaway=as.vector(0), 
                    data_period=as.vector(0), player_id=as.vector(0), data_text=as.vector(0),
                    location=as.vector(0), gamenumber= as.vector(0))

for (i in 1:54)
{
 text <-paste0("//*[(@class='shots home-team')]//*[(@id)][",i,"]")
 shotchart[nrow(shotchart)+1,1]<- unlist(re$findElement(using='xpath',text)$getElementAttribute('id'))
shotchart[nrow(shotchart),2]<- unlist(re$findElement(using='xpath', text)$getElementAttribute('class'))
shotchart[nrow(shotchart),3]<-unlist(re$findElement(using='xpath', text)$getElementAttribute('data-homeaway'))
shotchart[nrow(shotchart),4]<-unlist(re$findElement(using='xpath', text)$getElementAttribute('data-period'))
shotchart[nrow(shotchart),5]<-unlist(re$findElement(using='xpath', text)$getElementAttribute('data-shooter'))
shotchart[nrow(shotchart),6]<-unlist(re$findElement(using='xpath', text)$getElementAttribute('data-text'))
shotchart[nrow(shotchart),7]<-unlist(re$findElement(using='xpath', text)$getElementAttribute('style'))
shotchart[nrow(shotchart),8]<-k-1

}

任何帮助将不胜感激。如果需要任何进一步的信息，请告诉我。

所有变量在data.frame 1-5中都处于相同的比例.

data.frame的示例

rpi_invert

A   B   C   D
5   2   4   1
3   5   5   2
1   1   3   4   

对于所有相等的值,5我想将其更改为1.

为4改变2.

为2改变4.

为1改变5.

值更改后的data.frame示例.

rpi_invert

A   B   C   D
1   4   2   5
3   1   1   4
5   5   3   2

我累了.

for(b in colnames(rpi_invert)){
  rpi_invert[[b]][rpi_invert[[b]] == 5] <- 1
  rpi_invert[[b]][rpi_invert[[b]] == 4] <- 2
  rpi_invert[[b]][rpi_invert[[b]] == 2] <- 4
  rpi_invert[[b]][rpi_invert[[b]] == 1] …

我想在遇到时间之后将我的文本分成8个单词和数字.

文字示例:

s <- 'random random random 19:49 0-2 H 2 ABC TREE LAKE #88 TURTLE random random 03:32 43-21 V 8 XYZ LOG #72 FIRE random random random'

我希望如何拆分文本的示例.

 'random random random 19:49 0-2 H 2 ABC TREE LAKE #88 TURTLE
  random random 03:32 43-21 V 8 XYZ DOG LOG #72 FIRE
  random random random'

我知道我可以通过多种方式找到时间

str_extract(str_extract(s, "[:digit:]*:"), "[:digit:]*")

但我不确定如何在时间之后分割八个单词和数字.任何帮助将不胜感激.