chemdraw中如何表示不同的R基，如图中的不同R基，怎么表示

Posted 2023-05-02

chemdraw有自己的一套表示R基团的体系，选中结构后右击就会出现表示R基的选项，如果想了解详细教程内容就去ChemDraw中文官网搜索教程，希望能够帮到你。 参考技术A 你在ChemDraw中输入一下不就知道了么

如何以不同的格式从 R 中的 CSV 文件中读取一列值

【中文标题】如何以不同的格式从 R 中的 CSV 文件中读取一列值

【英文标题】：How to read one column value from CSV file in R in distinct format

【发布时间】：2017-08-06 06:36:10

【问题描述】：

如何在 R 中为以下数据使用图例

ID  Gender    Age   Site      Times
1   Male      24    Facebook     10
2   Female    24    Linkedin     10
3   Male      24    Twitter      10
4   Female    24    Myspace      10
5   Male      24    Facebook     10
6   Female    24    linkedin     10
7   Male      24    Facebook     10

阅读我用过的 CSV

pd.readcsv <- read.csv(file = "snsite.csv")

设计我使用的饼图

pie(pd.freq[order(pd.freq,decreasing = T)],
col = c("Blue","Green","Yellow","Brown","Green"),
border = NA, main = "Site Usage")

现在要在右上角或左上角显示图例，如何从 csv 文件中以不同的形式读取一列（站点）值并将其存储在变量中并在图例函数中使用？

【参考方案1】：

我不确定您从哪里获取 pd.freq 对象，但假设您正在尝试获取一个饼图，显示每个站点的每个站点被访问了多少次，那么这应该可以解决问题。

# Read dataframe, I would recommend including the stringsAsFactors = FALSE argument to your read.csv command
pd.readcsv <- read.table(text = "ID  Gender    Age   Site      Times
                                  1   Male      24    Facebook     10
                                  2   Female    24    Linkedin     10
                                  3   Male      24    Twitter      10
                                  4   Female    24    Myspace      10
                                  5   Male      24    Facebook     10
                                  6   Female    24    linkedin     10
                                  7   Male      24    Facebook     10", 
                                  header = TRUE, stringsAsFactors = FALSE)

# Convert sites to lowercase for proper aggregation
pd.readcsv$Site <- sapply(pd.readcsv$Site, tolower)

# Get vector of unique site names
sites <- unique(pd.readcsv$Site)

# Create aggregate dataframe with total times per site
pd.SumSiteTimes <- aggregate(Times~Site, sum, data = pd.readcsv)

# Create vector for colors
colors <- c("Blue","Green","Yellow","Brown","Green")

# Create pie chart
pie(pd.SumSiteTimes$Times[order(pd.SumSiteTimes$Times,decreasing = T)],
    col = colors,
    border = NA, 
    main = "Site Usage")

# Add legend to the plot
legend("topright", sites, cex = .8, fill = colors)