我有一个名为 Site 的大型数据表（300,000 行，100 列）。整个数据表都是十六进制值，例如：“\x96”或“\xc9”。我希望删除所有这些值。它们遵循“\x”后跟两个字符（数字或字母）的格式。

这是替换值的函数。我可以单独执行每个操作，如下所示，但我想要一个通用命令来删除表中的所有十六进制值。

Site<- as.data.table(apply(Site, 2, function(x) gsub("\x8e", "", x)))

我尝试使用正则表达式语法“\x..”，但收到此错误：

Error: '\x' used without hex digits in character string starting ""\x"

如何删除这些十六进制值？任何帮助是极大的赞赏！

这是一个可重现的示例：

dt <- data.table(A = c("Th\xa1is","is","the","first\x12"), B = c("This","\x45is","the","second"))

我想删除“\xa1”、“\x12”和“\x45”，以便表格看起来像：

       A      B
1:  This   This
2:    is     is
3:   the    the
4: first second

我的最终目标是改变演示文稿的主题。为此，我创建了一个源模板和一个新模板（具有正确的主题）。我迭代源模板中的每张幻灯片，然后使用/sf/answers/3925225601/中的代码将包含源内容的新幻灯片添加到新模板中。如果有更好的方法来做到这一点，我很想听听。

这对于文本和文本框非常有用，但是测试图像无法在新的 powerpoint 中显示（如下图所示）：

代码

def copy_slide_from_external_prs(self, src, idx, newPrs):

    # specify the slide you want to copy the contents from
    src_slide = src.slides[idx]

    # Define the layout you want to use from your generated pptx
    slide_layout = newPrs.slide_layouts[2]

    # create now slide, to copy contents to
    curr_slide = newPrs.slides.add_slide(slide_layout)


    # remove placeholders
    for p in [s.element for s in curr_slide.shapes if 'Text Placeholder' in s.name or 'Title' in s.name]:
        p.getparent().remove(p)

    # now copy contents from external slide, …

我正在使用谷歌表格作为数据库。填充一行时（使用 JSON API 和 Integromat），我希望更新新添加的行中的公式。但是，我无法将公式自动应用于整个列。

例如，C1 是=A1+B1。当A2和B2相加时，C2应为=A2+B2。

我努力了：

• 双击所选单元格右下角的框。这不起作用，因为它为包含数据的所有行添加了公式。添加新行时，公式不会应用于该行。
• 使用带有范围的公式=A1:A+B1:B。该公式仅适用于选定的单元格。
• 将公式粘贴到列标题中。这根本行不通。即使当我尝试包含使用 range 的公式时=A1:A+B1:B。
• 使用 Shift + Ctrl + Down + D 等热键。我找不到任何有效的热键。大多数适用于 Windows 计算机（我使用的是 Mac）。

我确信我只是犯了一个愚蠢的错误，但我还没有找到任何解决方案。

提前致谢！