回答編集履歴
2
Update
answer
CHANGED
|
@@ -5,8 +5,8 @@
|
|
|
5
5
|
```R
|
|
6
6
|
png("1.png", width = 600, height = 300, bg="transparent") # 描画デバイスを開く
|
|
7
7
|
plot(0, 0, type = "n", xlim = c(0, 3), ylim = c(0, 9), xaxt="n", yaxt="n", xlab = "", ylab = "", bty="n")
|
|
8
|
-
text(1,
|
|
8
|
+
text(1, 4, intToUtf8(0x1F305), col = "red", cex = 10, adj = 0)
|
|
9
|
-
text(1.6,
|
|
9
|
+
text(1.6, 4, intToUtf8(0x1F38D), col = "red", cex = 10, adj = 0)
|
|
10
10
|
dev.off()
|
|
11
11
|
```
|
|
12
|
-
|
1
Update
answer
CHANGED
|
@@ -1,11 +1,12 @@
|
|
|
1
|
-
|
|
1
|
+
`intToUtf8` を使います。
|
|
2
2
|
|
|
3
|
-
```r
|
|
4
|
-
$ R
|
|
5
|
-
|
|
3
|
+
[Convert Integer Vectors to or from UTF-8-encoded Character](https://stat.ethz.ch/R-manual/R-devel/library/base/html/utf8Conversion.html)
|
|
6
4
|
|
|
5
|
+
```R
|
|
6
|
+
png("1.png", width = 600, height = 300, bg="transparent") # 描画デバイスを開く
|
|
7
|
+
plot(0, 0, type = "n", xlim = c(0, 3), ylim = c(0, 9), xaxt="n", yaxt="n", xlab = "", ylab = "", bty="n")
|
|
7
|
-
|
|
8
|
+
text(1, 1, intToUtf8(0x1F305), col = "red", cex = 10, adj = 0)
|
|
8
|
-
|
|
9
|
+
text(1.6, 1, intToUtf8(0x1F38D), col = "red", cex = 10, adj = 0)
|
|
10
|
+
dev.off()
|
|
9
11
|
```
|
|
10
|
-
|
|
11
|
-
|