PCAとt-SNEを使って目的の結果になるようにしたいです！

Question

現在の状況：PCAのスクリプトをpaiza(beta)に打ち込んだが以下のようなエラーが出て実行が出来ない。

File "Main.py", line 6
d_pca <- prcomp(coil20[,-ncol(coil20)], scale=TRUE)
^
SyntaxError: invalid syntax

最終目的：以下のリンクにあるような実行結果を得たい。　※この質問内にも目的の画像は載せています
https://blog.albert2005.co.jp/2015/12/02/tsne/

現在の状態を分かりやすいように画像で記しておきます
[!

最終目的の画像は以下の画像になります
[

環境：OS windows10
python3.8

※追記　マルチポストで他へ掲載したためリンクを貼っておきます
https://ja.stackoverflow.com/questions/73414/paiza%e3%81%a7%e3%83%97%e3%83%ad%e3%82%b0%e3%83%a9%e3%83%a0%e3%82%92%e5%ae%9f%e8%a1%8c%e3%81%97%e3%81%9f%e3%81%84%e3%81%ae%e3%81%a7%e3%81%99%e3%81%8c-%e3%82%84%e3%82%8a%e6%96%b9%e3%81%8c%e5%88%86%e3%81%8b%e3%82%8a%e3%81%be%e3%81%9b%e3%82%93
より多くの有識者にの目に留まってほしいとの思いで掲載しました。

Comments

[quickquip]

どうやってこんなコードが書けたのでしょうか?

[shiniti]

このページで掲載しているリンクのものをそのまま貼り付けただけです( ;∀;)

[1T2R3M4]

https://ja.stackoverflow.com/questions/73434

以下ご対応ください。
https://teratail.com/help#posted-otherservice

[quickquip]

そのページを読んでいますか?
どうしてRのコードを入力して動くと思ったのでしょうか?

[quickquip]

二つのサイトに同時に質問しても両方の相手をしないといけなくなって大変になるだけでいいことは特に無いですよ。

[shiniti]

同時掲載はマナー上良くないみたいですね。以降注意致します。すみませんでした。

[quickquip]

（本筋と関係ないですが）
「マナー上良くない」はなにを読んでそう思ったんでしょう?
「以降注意致します」じゃなくて、Teratailが"こうしてください"としていることを実行しましょう。

[shiniti]

削除が出来ないようなので、リンク先と掲載理由を追記致しました

Answer 1

コード設定をRに直したら実行は出来ました