Label/Nummer aus Tabellenausgabe entnehmen (R)

Ich versuche, das Label und die Werte aus einer table()-Ausgabe in R zu holen.

Hier ist ein Beispielcode:

a=c(1,1,1,1,2,2,2,2,2,2)
table1=table(a)
table1

Die Ausgabe sieht so aus:

a
1    2
4    6

Ich möchte in der Lage sein, entweder die 1 oder 2 zu erfassen und dieses Label als Wert einer anderen Variablen zuzuweisen. Ich möchte das auch mit der 4 oder 6 machen können.

Folgendes habe ich bisher gemacht:

var1=table1[1]
var2=table1[2]
var3=var1+var2
var3

Ausgabe:

1
10

Gibt es eine Möglichkeit, den Wert 10 ohne die Beschriftung von 1 darüber in der Ausgabe zu erfassen? Außerdem, wie würde ich das Etikett 1 allein greifen?

Jede Hilfe wäre sehr dankbar! Danke!